home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998 January: Technology Seed / Jan. '98 ATS.toast / QuickTime™ 3.0b11 / QTPublicInterfaces / AIncludes / QuickTimeComponents.a < prev    next >
Encoding:
Text File  |  1998-01-12  |  188.6 KB  |  6,622 lines  |  [TEXT/MPS ]

  1. ;
  2. ;    File:        QuickTimeComponents.a
  3. ;
  4. ;    Contains:    QuickTime interfaces
  5. ;
  6. ;    Version:    Technology:    
  7. ;                Release:    QuickTime 3.0 Beta
  8. ;
  9. ;    Copyright:    © 1990-1997 by Apple Computer, Inc., all rights reserved
  10. ;
  11. ;    Bugs?:        Please include the the file and version information (from above) with
  12. ;                the problem description.  Developers belonging to one of the Apple
  13. ;                developer programs can submit bug reports to:
  14. ;
  15. ;                    devsupport@apple.com
  16. ;
  17. ;
  18.     IF &TYPE('__QUICKTIMECOMPONENTS__') = 'UNDEFINED' THEN
  19. __QUICKTIMECOMPONENTS__ SET 1
  20.  
  21.     IF &TYPE('__COMPONENTS__') = 'UNDEFINED' THEN
  22.     include 'Components.a'
  23.     ENDIF
  24.     IF &TYPE('__IMAGECOMPRESSION__') = 'UNDEFINED' THEN
  25.     include 'ImageCompression.a'
  26.     ENDIF
  27.     IF &TYPE('__MOVIES__') = 'UNDEFINED' THEN
  28.     include 'Movies.a'
  29.     ENDIF
  30.     IF &TYPE('__QUICKDRAW__') = 'UNDEFINED' THEN
  31.     include 'Quickdraw.a'
  32.     ENDIF
  33.     IF &TYPE('__VIDEO__') = 'UNDEFINED' THEN
  34.     include 'Video.a'
  35.     ENDIF
  36.     IF &TYPE('__MACMEMORY__') = 'UNDEFINED' THEN
  37.     include 'MacMemory.a'
  38.     ENDIF
  39.     IF &TYPE('__SOUND__') = 'UNDEFINED' THEN
  40.     include 'Sound.a'
  41.     ENDIF
  42.     IF &TYPE('__QUICKTIMEMUSIC__') = 'UNDEFINED' THEN
  43.     include 'QuickTimeMusic.a'
  44.     ENDIF
  45.  
  46.  
  47. clockComponentType                EQU        'clok'
  48. systemTickClock                    EQU        'tick'                ; subtype: 60ths since boot        
  49. systemSecondClock                EQU        'seco'                ; subtype: seconds since 1904        
  50. systemMillisecondClock            EQU        'mill'                ; subtype: 1000ths since boot        
  51. systemMicrosecondClock            EQU        'micr'                ; subtype: 1000000ths since boot    
  52.  
  53. kClockRateIsLinear                EQU        1
  54. kClockImplementsCallBacks        EQU        2
  55. kClockCanHandleIntermittentSound EQU    4                    ; sound clocks only 
  56. ; * These are Clock procedures *
  57. ;
  58. ; pascal ComponentResult ClockGetTime(ComponentInstance aClock, TimeRecord *out)
  59. ;
  60.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  61.         Macro
  62.         _ClockGetTime
  63.             move.l              #$00040001,-(sp)
  64.             moveq               #0,D0
  65.             dc.w                $A82A
  66.         EndM
  67.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  68.         IMPORT_CFM_FUNCTION ClockGetTime
  69.     ENDIF
  70.  
  71.  
  72. ;
  73. ; pascal QTCallBack ClockNewCallBack(ComponentInstance aClock, TimeBase tb, short callBackType)
  74. ;
  75.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  76.         Macro
  77.         _ClockNewCallBack
  78.             move.l              #$00060002,-(sp)
  79.             moveq               #0,D0
  80.             dc.w                $A82A
  81.         EndM
  82.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  83.         IMPORT_CFM_FUNCTION ClockNewCallBack
  84.     ENDIF
  85.  
  86. ;
  87. ; pascal ComponentResult ClockDisposeCallBack(ComponentInstance aClock, QTCallBack cb)
  88. ;
  89.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  90.         Macro
  91.         _ClockDisposeCallBack
  92.             move.l              #$00040003,-(sp)
  93.             moveq               #0,D0
  94.             dc.w                $A82A
  95.         EndM
  96.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  97.         IMPORT_CFM_FUNCTION ClockDisposeCallBack
  98.     ENDIF
  99.  
  100. ;
  101. ; pascal ComponentResult ClockCallMeWhen(ComponentInstance aClock, QTCallBack cb, long param1, long param2, long param3)
  102. ;
  103.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  104.         Macro
  105.         _ClockCallMeWhen
  106.             move.l              #$00100004,-(sp)
  107.             moveq               #0,D0
  108.             dc.w                $A82A
  109.         EndM
  110.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  111.         IMPORT_CFM_FUNCTION ClockCallMeWhen
  112.     ENDIF
  113.  
  114. ;
  115. ; pascal ComponentResult ClockCancelCallBack(ComponentInstance aClock, QTCallBack cb)
  116. ;
  117.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  118.         Macro
  119.         _ClockCancelCallBack
  120.             move.l              #$00040005,-(sp)
  121.             moveq               #0,D0
  122.             dc.w                $A82A
  123.         EndM
  124.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  125.         IMPORT_CFM_FUNCTION ClockCancelCallBack
  126.     ENDIF
  127.  
  128. ;
  129. ; pascal ComponentResult ClockRateChanged(ComponentInstance aClock, QTCallBack cb)
  130. ;
  131.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  132.         Macro
  133.         _ClockRateChanged
  134.             move.l              #$00040006,-(sp)
  135.             moveq               #0,D0
  136.             dc.w                $A82A
  137.         EndM
  138.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  139.         IMPORT_CFM_FUNCTION ClockRateChanged
  140.     ENDIF
  141.  
  142. ;
  143. ; pascal ComponentResult ClockTimeChanged(ComponentInstance aClock, QTCallBack cb)
  144. ;
  145.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  146.         Macro
  147.         _ClockTimeChanged
  148.             move.l              #$00040007,-(sp)
  149.             moveq               #0,D0
  150.             dc.w                $A82A
  151.         EndM
  152.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  153.         IMPORT_CFM_FUNCTION ClockTimeChanged
  154.     ENDIF
  155.  
  156. ;
  157. ; pascal ComponentResult ClockSetTimeBase(ComponentInstance aClock, TimeBase tb)
  158. ;
  159.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  160.         Macro
  161.         _ClockSetTimeBase
  162.             move.l              #$00040008,-(sp)
  163.             moveq               #0,D0
  164.             dc.w                $A82A
  165.         EndM
  166.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  167.         IMPORT_CFM_FUNCTION ClockSetTimeBase
  168.     ENDIF
  169.  
  170. ;
  171. ; pascal ComponentResult ClockStartStopChanged(ComponentInstance aClock, QTCallBack cb, Boolean startChanged, Boolean stopChanged)
  172. ;
  173.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  174.         Macro
  175.         _ClockStartStopChanged
  176.             move.l              #$00080009,-(sp)
  177.             moveq               #0,D0
  178.             dc.w                $A82A
  179.         EndM
  180.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  181.         IMPORT_CFM_FUNCTION ClockStartStopChanged
  182.     ENDIF
  183.  
  184. ;
  185. ; pascal ComponentResult ClockGetRate(ComponentInstance aClock, Fixed *rate)
  186. ;
  187.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  188.         Macro
  189.         _ClockGetRate
  190.             move.l              #$0004000A,-(sp)
  191.             moveq               #0,D0
  192.             dc.w                $A82A
  193.         EndM
  194.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  195.         IMPORT_CFM_FUNCTION ClockGetRate
  196.     ENDIF
  197.  
  198.  
  199.  
  200.  
  201.  
  202. StandardCompressionType            EQU        'scdi'
  203. StandardCompressionSubType        EQU        'imag'
  204. StandardCompressionSubTypeSound    EQU        'soun'
  205.  
  206. ;     Preference flags.
  207.  
  208. scListEveryCodec                EQU        $00000002
  209. scAllowZeroFrameRate            EQU        $00000004
  210. scAllowZeroKeyFrameRate            EQU        $00000008
  211. scShowBestDepth                    EQU        $00000010
  212. scUseMovableModal                EQU        $00000020
  213. scDisableFrameRateItem            EQU        $00000040
  214.  
  215. ;     Possible test flags for setting test image.
  216.  
  217. scPreferCropping                EQU        $01
  218. scPreferScaling                    EQU        $02
  219. scPreferScalingAndCropping        EQU        $03
  220. scDontDetermineSettingsFromTestImage EQU $04
  221.  
  222. ;     Dimensions of the image preview box.
  223.  
  224. scTestImageWidth                EQU        80
  225. scTestImageHeight                EQU        80
  226. ;     Possible items returned by hookProc.
  227.  
  228. scOKItem                        EQU        1
  229. scCancelItem                    EQU        2
  230. scCustomItem                    EQU        3
  231. ;     Result returned when user cancelled.
  232.  
  233. scUserCancelled                    EQU        1
  234.  
  235.  
  236. ;     Get/SetInfo structures.
  237.  
  238. SCSpatialSettings        RECORD 0
  239. codecType                 ds.l    1                ; offset: $0 (0)
  240. codec                     ds.l    1                ; offset: $4 (4)
  241. depth                     ds.w    1                ; offset: $8 (8)
  242. spatialQuality             ds.l    1                ; offset: $A (10)
  243. sizeof                     EQU *                    ; size:   $E (14)
  244.                         ENDR
  245. SCTemporalSettings        RECORD 0
  246. temporalQuality             ds.l    1                ; offset: $0 (0)
  247. frameRate                 ds.l    1                ; offset: $4 (4)
  248. keyFrameRate             ds.l    1                ; offset: $8 (8)
  249. sizeof                     EQU *                    ; size:   $C (12)
  250.                         ENDR
  251. SCDataRateSettings        RECORD 0
  252. dataRate                 ds.l    1                ; offset: $0 (0)
  253. frameDuration             ds.l    1                ; offset: $4 (4)
  254. minSpatialQuality         ds.l    1                ; offset: $8 (8)
  255. minTemporalQuality         ds.l    1                ; offset: $C (12)
  256. sizeof                     EQU *                    ; size:   $10 (16)
  257.                         ENDR
  258. SCExtendedProcs            RECORD 0
  259. filterProc                 ds.l    1                ; offset: $0 (0)
  260. hookProc                 ds.l    1                ; offset: $4 (4)
  261. refcon                     ds.l    1                ; offset: $8 (8)
  262. customName                 ds        Str31            ; offset: $C (12)
  263. sizeof                     EQU *                    ; size:   $2C (44)
  264.                         ENDR
  265. ;     Get/SetInfo selectors
  266.  
  267. scSpatialSettingsType            EQU        'sptl'                ; pointer to SCSpatialSettings struct
  268. scTemporalSettingsType            EQU        'tprl'                ; pointer to SCTemporalSettings struct
  269. scDataRateSettingsType            EQU        'drat'                ; pointer to SCDataRateSettings struct
  270. scColorTableType                EQU        'clut'                ; pointer to CTabHandle
  271. scProgressProcType                EQU        'prog'                ; pointer to ProgressRecord struct
  272. scExtendedProcsType                EQU        'xprc'                ; pointer to SCExtendedProcs struct
  273. scPreferenceFlagsType            EQU        'pref'                ; pointer to long
  274. scSettingsStateType                EQU        'ssta'                ; pointer to Handle
  275. scSequenceIDType                EQU        'sequ'                ; pointer to ImageSequence
  276. scWindowPositionType            EQU        'wndw'                ; pointer to Point
  277. scCodecFlagsType                EQU        'cflg'                ; pointer to CodecFlags
  278. scCodecSettingsType                EQU        'cdec'                ; pointer to Handle
  279. scForceKeyValueType                EQU        'ksim'                ; pointer to long
  280. scSoundSampleRateType            EQU        'ssrt'                ; pointer to UnsignedFixed
  281. scSoundSampleSizeType            EQU        'ssss'                ; pointer to short
  282. scSoundChannelCountType            EQU        'sscc'                ; pointer to short
  283. scSoundCompressionType            EQU        'ssct'                ; pointer to OSType
  284. scCompressionListType            EQU        'ctyl'                ; pointer to OSType Handle
  285. ;     scTypeNotFoundErr returned by Get/SetInfo when type cannot be found.
  286.  
  287.  
  288. SCParams                RECORD 0
  289. flags                     ds.l    1                ; offset: $0 (0)
  290. theCodecType             ds.l    1                ; offset: $4 (4)
  291. theCodec                 ds.l    1                ; offset: $8 (8)
  292. spatialQuality             ds.l    1                ; offset: $C (12)
  293. temporalQuality             ds.l    1                ; offset: $10 (16)
  294. depth                     ds.w    1                ; offset: $14 (20)
  295. frameRate                 ds.l    1                ; offset: $16 (22)
  296. keyFrameRate             ds.l    1                ; offset: $1A (26)
  297. reserved1                 ds.l    1                ; offset: $1E (30)
  298. reserved2                 ds.l    1                ; offset: $22 (34)
  299. sizeof                     EQU *                    ; size:   $26 (38)
  300.                         ENDR
  301.  
  302. scGetCompression                EQU        1
  303. scShowMotionSettings            EQU        $00000001
  304. scSettingsChangedItem            EQU        -1
  305.  
  306. scCompressFlagIgnoreIdenticalFrames EQU    1
  307. ;  QTAtomTypes for atoms found in settings atom containers
  308.  
  309. kQTSettingsVideo                EQU        'vide'                ; Container for video/image compression related atoms (Get/SetInfo selectors)
  310. kQTSettingsSound                EQU        'soun'                ; Container for sound compression related atoms (Get/SetInfo selectors)
  311.  
  312. ; * These are Progress procedures *
  313. ;
  314. ; pascal ComponentResult SCGetCompressionExtended(ComponentInstance ci, SCParams *params, Point where, SCModalFilterUPP filterProc, SCModalHookUPP hookProc, long refcon, StringPtr customName)
  315. ;
  316.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  317.         Macro
  318.         _SCGetCompressionExtended
  319.             move.l              #$00180001,-(sp)
  320.             moveq               #0,D0
  321.             dc.w                $A82A
  322.         EndM
  323.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  324.         IMPORT_CFM_FUNCTION SCGetCompressionExtended
  325.     ENDIF
  326.  
  327. ;
  328. ; pascal ComponentResult SCPositionRect(ComponentInstance ci, Rect *rp, Point *where)
  329. ;
  330.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  331.         Macro
  332.         _SCPositionRect
  333.             move.l              #$00080002,-(sp)
  334.             moveq               #0,D0
  335.             dc.w                $A82A
  336.         EndM
  337.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  338.         IMPORT_CFM_FUNCTION SCPositionRect
  339.     ENDIF
  340.  
  341. ;
  342. ; pascal ComponentResult SCPositionDialog(ComponentInstance ci, short id, Point *where)
  343. ;
  344.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  345.         Macro
  346.         _SCPositionDialog
  347.             move.l              #$00060003,-(sp)
  348.             moveq               #0,D0
  349.             dc.w                $A82A
  350.         EndM
  351.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  352.         IMPORT_CFM_FUNCTION SCPositionDialog
  353.     ENDIF
  354.  
  355. ;
  356. ; pascal ComponentResult SCSetTestImagePictHandle(ComponentInstance ci, PicHandle testPict, Rect *testRect, short testFlags)
  357. ;
  358.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  359.         Macro
  360.         _SCSetTestImagePictHandle
  361.             move.l              #$000A0004,-(sp)
  362.             moveq               #0,D0
  363.             dc.w                $A82A
  364.         EndM
  365.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  366.         IMPORT_CFM_FUNCTION SCSetTestImagePictHandle
  367.     ENDIF
  368.  
  369. ;
  370. ; pascal ComponentResult SCSetTestImagePictFile(ComponentInstance ci, short testFileRef, Rect *testRect, short testFlags)
  371. ;
  372.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  373.         Macro
  374.         _SCSetTestImagePictFile
  375.             move.l              #$00080005,-(sp)
  376.             moveq               #0,D0
  377.             dc.w                $A82A
  378.         EndM
  379.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  380.         IMPORT_CFM_FUNCTION SCSetTestImagePictFile
  381.     ENDIF
  382.  
  383. ;
  384. ; pascal ComponentResult SCSetTestImagePixMap(ComponentInstance ci, PixMapHandle testPixMap, Rect *testRect, short testFlags)
  385. ;
  386.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  387.         Macro
  388.         _SCSetTestImagePixMap
  389.             move.l              #$000A0006,-(sp)
  390.             moveq               #0,D0
  391.             dc.w                $A82A
  392.         EndM
  393.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  394.         IMPORT_CFM_FUNCTION SCSetTestImagePixMap
  395.     ENDIF
  396.  
  397. ;
  398. ; pascal ComponentResult SCGetBestDeviceRect(ComponentInstance ci, Rect *r)
  399. ;
  400.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  401.         Macro
  402.         _SCGetBestDeviceRect
  403.             move.l              #$00040007,-(sp)
  404.             moveq               #0,D0
  405.             dc.w                $A82A
  406.         EndM
  407.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  408.         IMPORT_CFM_FUNCTION SCGetBestDeviceRect
  409.     ENDIF
  410.  
  411.  
  412. ;
  413. ; pascal ComponentResult SCRequestImageSettings(ComponentInstance ci)
  414. ;
  415.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  416.         Macro
  417.         _SCRequestImageSettings
  418.             move.l              #$0000000A,-(sp)
  419.             moveq               #0,D0
  420.             dc.w                $A82A
  421.         EndM
  422.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  423.         IMPORT_CFM_FUNCTION SCRequestImageSettings
  424.     ENDIF
  425.  
  426. ;
  427. ; pascal ComponentResult SCCompressImage(ComponentInstance ci, PixMapHandle src, const Rect *srcRect, ImageDescriptionHandle *desc, Handle *data)
  428. ;
  429.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  430.         Macro
  431.         _SCCompressImage
  432.             move.l              #$0010000B,-(sp)
  433.             moveq               #0,D0
  434.             dc.w                $A82A
  435.         EndM
  436.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  437.         IMPORT_CFM_FUNCTION SCCompressImage
  438.     ENDIF
  439.  
  440. ;
  441. ; pascal ComponentResult SCCompressPicture(ComponentInstance ci, PicHandle srcPicture, PicHandle dstPicture)
  442. ;
  443.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  444.         Macro
  445.         _SCCompressPicture
  446.             move.l              #$0008000C,-(sp)
  447.             moveq               #0,D0
  448.             dc.w                $A82A
  449.         EndM
  450.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  451.         IMPORT_CFM_FUNCTION SCCompressPicture
  452.     ENDIF
  453.  
  454. ;
  455. ; pascal ComponentResult SCCompressPictureFile(ComponentInstance ci, short srcRefNum, short dstRefNum)
  456. ;
  457.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  458.         Macro
  459.         _SCCompressPictureFile
  460.             move.l              #$0004000D,-(sp)
  461.             moveq               #0,D0
  462.             dc.w                $A82A
  463.         EndM
  464.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  465.         IMPORT_CFM_FUNCTION SCCompressPictureFile
  466.     ENDIF
  467.  
  468. ;
  469. ; pascal ComponentResult SCRequestSequenceSettings(ComponentInstance ci)
  470. ;
  471.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  472.         Macro
  473.         _SCRequestSequenceSettings
  474.             move.l              #$0000000E,-(sp)
  475.             moveq               #0,D0
  476.             dc.w                $A82A
  477.         EndM
  478.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  479.         IMPORT_CFM_FUNCTION SCRequestSequenceSettings
  480.     ENDIF
  481.  
  482. ;
  483. ; pascal ComponentResult SCCompressSequenceBegin(ComponentInstance ci, PixMapHandle src, const Rect *srcRect, ImageDescriptionHandle *desc)
  484. ;
  485.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  486.         Macro
  487.         _SCCompressSequenceBegin
  488.             move.l              #$000C000F,-(sp)
  489.             moveq               #0,D0
  490.             dc.w                $A82A
  491.         EndM
  492.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  493.         IMPORT_CFM_FUNCTION SCCompressSequenceBegin
  494.     ENDIF
  495.  
  496. ;
  497. ; pascal ComponentResult SCCompressSequenceFrame(ComponentInstance ci, PixMapHandle src, const Rect *srcRect, Handle *data, long *dataSize, short *notSyncFlag)
  498. ;
  499.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  500.         Macro
  501.         _SCCompressSequenceFrame
  502.             move.l              #$00140010,-(sp)
  503.             moveq               #0,D0
  504.             dc.w                $A82A
  505.         EndM
  506.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  507.         IMPORT_CFM_FUNCTION SCCompressSequenceFrame
  508.     ENDIF
  509.  
  510. ;
  511. ; pascal ComponentResult SCCompressSequenceEnd(ComponentInstance ci)
  512. ;
  513.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  514.         Macro
  515.         _SCCompressSequenceEnd
  516.             move.l              #$00000011,-(sp)
  517.             moveq               #0,D0
  518.             dc.w                $A82A
  519.         EndM
  520.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  521.         IMPORT_CFM_FUNCTION SCCompressSequenceEnd
  522.     ENDIF
  523.  
  524. ;
  525. ; pascal ComponentResult SCDefaultPictHandleSettings(ComponentInstance ci, PicHandle srcPicture, short motion)
  526. ;
  527.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  528.         Macro
  529.         _SCDefaultPictHandleSettings
  530.             move.l              #$00060012,-(sp)
  531.             moveq               #0,D0
  532.             dc.w                $A82A
  533.         EndM
  534.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  535.         IMPORT_CFM_FUNCTION SCDefaultPictHandleSettings
  536.     ENDIF
  537.  
  538. ;
  539. ; pascal ComponentResult SCDefaultPictFileSettings(ComponentInstance ci, short srcRef, short motion)
  540. ;
  541.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  542.         Macro
  543.         _SCDefaultPictFileSettings
  544.             move.l              #$00040013,-(sp)
  545.             moveq               #0,D0
  546.             dc.w                $A82A
  547.         EndM
  548.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  549.         IMPORT_CFM_FUNCTION SCDefaultPictFileSettings
  550.     ENDIF
  551.  
  552. ;
  553. ; pascal ComponentResult SCDefaultPixMapSettings(ComponentInstance ci, PixMapHandle src, short motion)
  554. ;
  555.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  556.         Macro
  557.         _SCDefaultPixMapSettings
  558.             move.l              #$00060014,-(sp)
  559.             moveq               #0,D0
  560.             dc.w                $A82A
  561.         EndM
  562.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  563.         IMPORT_CFM_FUNCTION SCDefaultPixMapSettings
  564.     ENDIF
  565.  
  566. ;
  567. ; pascal ComponentResult SCGetInfo(ComponentInstance ci, OSType infoType, void *info)
  568. ;
  569.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  570.         Macro
  571.         _SCGetInfo
  572.             move.l              #$00080015,-(sp)
  573.             moveq               #0,D0
  574.             dc.w                $A82A
  575.         EndM
  576.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  577.         IMPORT_CFM_FUNCTION SCGetInfo
  578.     ENDIF
  579.  
  580. ;
  581. ; pascal ComponentResult SCSetInfo(ComponentInstance ci, OSType infoType, void *info)
  582. ;
  583.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  584.         Macro
  585.         _SCSetInfo
  586.             move.l              #$00080016,-(sp)
  587.             moveq               #0,D0
  588.             dc.w                $A82A
  589.         EndM
  590.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  591.         IMPORT_CFM_FUNCTION SCSetInfo
  592.     ENDIF
  593.  
  594. ;
  595. ; pascal ComponentResult SCNewGWorld(ComponentInstance ci, GWorldPtr *gwp, Rect *rp, GWorldFlags flags)
  596. ;
  597.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  598.         Macro
  599.         _SCNewGWorld
  600.             move.l              #$000C0017,-(sp)
  601.             moveq               #0,D0
  602.             dc.w                $A82A
  603.         EndM
  604.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  605.         IMPORT_CFM_FUNCTION SCNewGWorld
  606.     ENDIF
  607.  
  608. ;
  609. ; pascal ComponentResult SCSetCompressFlags(ComponentInstance ci, long flags)
  610. ;
  611.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  612.         Macro
  613.         _SCSetCompressFlags
  614.             move.l              #$00040018,-(sp)
  615.             moveq               #0,D0
  616.             dc.w                $A82A
  617.         EndM
  618.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  619.         IMPORT_CFM_FUNCTION SCSetCompressFlags
  620.     ENDIF
  621.  
  622. ;
  623. ; pascal ComponentResult SCGetCompressFlags(ComponentInstance ci, long *flags)
  624. ;
  625.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  626.         Macro
  627.         _SCGetCompressFlags
  628.             move.l              #$00040019,-(sp)
  629.             moveq               #0,D0
  630.             dc.w                $A82A
  631.         EndM
  632.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  633.         IMPORT_CFM_FUNCTION SCGetCompressFlags
  634.     ENDIF
  635.  
  636. ;
  637. ; pascal ComponentResult SCGetSettingsAsText(ComponentInstance ci, Handle *text)
  638. ;
  639.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  640.         Macro
  641.         _SCGetSettingsAsText
  642.             move.l              #$0004001A,-(sp)
  643.             moveq               #0,D0
  644.             dc.w                $A82A
  645.         EndM
  646.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  647.         IMPORT_CFM_FUNCTION SCGetSettingsAsText
  648.     ENDIF
  649.  
  650. ;
  651. ; pascal ComponentResult SCGetSettingsAsAtomContainer(ComponentInstance ci, QTAtomContainer *settings)
  652. ;
  653.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  654.         Macro
  655.         _SCGetSettingsAsAtomContainer
  656.             move.l              #$0004001B,-(sp)
  657.             moveq               #0,D0
  658.             dc.w                $A82A
  659.         EndM
  660.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  661.         IMPORT_CFM_FUNCTION SCGetSettingsAsAtomContainer
  662.     ENDIF
  663.  
  664. ;
  665. ; pascal ComponentResult SCSetSettingsFromAtomContainer(ComponentInstance ci, QTAtomContainer settings)
  666. ;
  667.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  668.         Macro
  669.         _SCSetSettingsFromAtomContainer
  670.             move.l              #$0004001C,-(sp)
  671.             moveq               #0,D0
  672.             dc.w                $A82A
  673.         EndM
  674.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  675.         IMPORT_CFM_FUNCTION SCSetSettingsFromAtomContainer
  676.     ENDIF
  677.  
  678.  
  679.  
  680.  
  681.  
  682. TweenComponentType                EQU        'twen'
  683. ; typedef ComponentInstance             TweenerComponent
  684.  
  685.  
  686.  
  687. TweenRecord                RECORD 0
  688. version                     ds.l    1                ; offset: $0 (0)
  689. container                 ds.l    1                ; offset: $4 (4)
  690. tweenAtom                 ds.l    1                ; offset: $8 (8)
  691. dataAtom                 ds.l    1                ; offset: $C (12)
  692. percent                     ds.l    1                ; offset: $10 (16)
  693. dataProc                 ds.l    1                ; offset: $14 (20)
  694. private1                 ds.l    1                ; offset: $18 (24)
  695. private2                 ds.l    1                ; offset: $1C (28)
  696. sizeof                     EQU *                    ; size:   $20 (32)
  697.                         ENDR
  698. TweenV1Record            RECORD 0
  699. version                     ds.l    1                ; offset: $0 (0)
  700. container                 ds.l    1                ; offset: $4 (4)
  701. tweenAtom                 ds.l    1                ; offset: $8 (8)
  702. dataAtom                 ds.l    1                ; offset: $C (12)
  703. percent                     ds.l    1                ; offset: $10 (16)
  704. dataProc                 ds.l    1                ; offset: $14 (20)
  705. private1                 ds.l    1                ; offset: $18 (24)
  706. private2                 ds.l    1                ; offset: $1C (28)
  707. fractPercent             ds.l    1                ; offset: $20 (32)
  708. sizeof                     EQU *                    ; size:   $24 (36)
  709.                         ENDR
  710. ;
  711. ; pascal ComponentResult TweenerInitialize(TweenerComponent tc, QTAtomContainer container, QTAtom tweenAtom, QTAtom dataAtom)
  712. ;
  713.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  714.         Macro
  715.         _TweenerInitialize
  716.             move.l              #$000C0001,-(sp)
  717.             moveq               #0,D0
  718.             dc.w                $A82A
  719.         EndM
  720.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  721.         IMPORT_CFM_FUNCTION TweenerInitialize
  722.     ENDIF
  723.  
  724. ;
  725. ; pascal ComponentResult TweenerDoTween(TweenerComponent tc, TweenRecord *tr)
  726. ;
  727.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  728.         Macro
  729.         _TweenerDoTween
  730.             move.l              #$00040002,-(sp)
  731.             moveq               #0,D0
  732.             dc.w                $A82A
  733.         EndM
  734.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  735.         IMPORT_CFM_FUNCTION TweenerDoTween
  736.     ENDIF
  737.  
  738. ;
  739. ; pascal ComponentResult TweenerReset(TweenerComponent tc)
  740. ;
  741.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  742.         Macro
  743.         _TweenerReset
  744.             move.l              #$00000003,-(sp)
  745.             moveq               #0,D0
  746.             dc.w                $A82A
  747.         EndM
  748.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  749.         IMPORT_CFM_FUNCTION TweenerReset
  750.     ENDIF
  751.  
  752.  
  753.  
  754.  
  755. TCSourceRefNameType                EQU        'name'
  756.  
  757. tcDropFrame                        EQU        $01
  758. tc24HourMax                        EQU        $02
  759. tcNegTimesOK                    EQU        $04
  760. tcCounter                        EQU        $08
  761. TimeCodeDef                RECORD 0
  762. flags                     ds.l    1                ; offset: $0 (0)        ;  drop-frame, etc.
  763. fTimeScale                 ds.l    1                ; offset: $4 (4)        ;  time scale of frameDuration (eg. 2997)
  764. frameDuration             ds.l    1                ; offset: $8 (8)        ;  duration of each frame (eg. 100)
  765. numFrames                 ds.b    1                ; offset: $C (12)        ;  frames/sec for timecode (eg. 30) OR frames/tick for counter mode
  766. padding                     ds.b    1                ; offset: $D (13)        ;  unused padding byte
  767. sizeof                     EQU *                    ; size:   $E (14)
  768.                         ENDR
  769.  
  770. tctNegFlag                        EQU        $80                    ; negative bit is in minutes
  771. TimeCodeTime            RECORD 0
  772. hours                     ds.b    1                ; offset: $0 (0)
  773. minutes                     ds.b    1                ; offset: $1 (1)
  774. seconds                     ds.b    1                ; offset: $2 (2)
  775. frames                     ds.b    1                ; offset: $3 (3)
  776. sizeof                     EQU *                    ; size:   $4 (4)
  777.                         ENDR
  778. TimeCodeCounter            RECORD 0
  779. counter                     ds.l    1                ; offset: $0 (0)
  780. sizeof                     EQU *                    ; size:   $4 (4)
  781.                         ENDR
  782. TimeCodeDescription        RECORD 0
  783. descSize                 ds.l    1                ; offset: $0 (0)        ;  standard sample description header
  784. dataFormat                 ds.l    1                ; offset: $4 (4)
  785. resvd1                     ds.l    1                ; offset: $8 (8)
  786. resvd2                     ds.w    1                ; offset: $C (12)
  787. dataRefIndex             ds.w    1                ; offset: $E (14)
  788. flags                     ds.l    1                ; offset: $10 (16)        ;  timecode specific stuff
  789. timeCodeDef                 ds        TimeCodeDef        ; offset: $14 (20)
  790. srcRef                     ds.l    1                ; offset: $22 (34) <-- really an array of length one
  791. sizeof                     EQU *                    ; size:   $26 (38)
  792.                         ENDR
  793. ; typedef struct TimeCodeDescription *    TimeCodeDescriptionPtr
  794.  
  795. ; typedef TimeCodeDescriptionPtr *        TimeCodeDescriptionHandle
  796.  
  797.  
  798. tcdfShowTimeCode                EQU        $01
  799. ;
  800. ; pascal HandlerError TCGetCurrentTimeCode(MediaHandler mh, long *frameNum, TimeCodeDef *tcdef, TimeCodeRecord *tcrec, UserData *srcRefH)
  801. ;
  802.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  803.         Macro
  804.         _TCGetCurrentTimeCode
  805.             move.l              #$00100101,-(sp)
  806.             moveq               #0,D0
  807.             dc.w                $A82A
  808.         EndM
  809.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  810.         IMPORT_CFM_FUNCTION TCGetCurrentTimeCode
  811.     ENDIF
  812.  
  813. ;
  814. ; pascal HandlerError TCGetTimeCodeAtTime(MediaHandler mh, TimeValue mediaTime, long *frameNum, TimeCodeDef *tcdef, TimeCodeRecord *tcdata, UserData *srcRefH)
  815. ;
  816.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  817.         Macro
  818.         _TCGetTimeCodeAtTime
  819.             move.l              #$00140102,-(sp)
  820.             moveq               #0,D0
  821.             dc.w                $A82A
  822.         EndM
  823.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  824.         IMPORT_CFM_FUNCTION TCGetTimeCodeAtTime
  825.     ENDIF
  826.  
  827. ;
  828. ; pascal HandlerError TCTimeCodeToString(MediaHandler mh, TimeCodeDef *tcdef, TimeCodeRecord *tcrec, StringPtr tcStr)
  829. ;
  830.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  831.         Macro
  832.         _TCTimeCodeToString
  833.             move.l              #$000C0103,-(sp)
  834.             moveq               #0,D0
  835.             dc.w                $A82A
  836.         EndM
  837.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  838.         IMPORT_CFM_FUNCTION TCTimeCodeToString
  839.     ENDIF
  840.  
  841. ;
  842. ; pascal HandlerError TCTimeCodeToFrameNumber(MediaHandler mh, TimeCodeDef *tcdef, TimeCodeRecord *tcrec, long *frameNumber)
  843. ;
  844.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  845.         Macro
  846.         _TCTimeCodeToFrameNumber
  847.             move.l              #$000C0104,-(sp)
  848.             moveq               #0,D0
  849.             dc.w                $A82A
  850.         EndM
  851.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  852.         IMPORT_CFM_FUNCTION TCTimeCodeToFrameNumber
  853.     ENDIF
  854.  
  855. ;
  856. ; pascal HandlerError TCFrameNumberToTimeCode(MediaHandler mh, long frameNumber, TimeCodeDef *tcdef, TimeCodeRecord *tcrec)
  857. ;
  858.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  859.         Macro
  860.         _TCFrameNumberToTimeCode
  861.             move.l              #$000C0105,-(sp)
  862.             moveq               #0,D0
  863.             dc.w                $A82A
  864.         EndM
  865.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  866.         IMPORT_CFM_FUNCTION TCFrameNumberToTimeCode
  867.     ENDIF
  868.  
  869. ;
  870. ; pascal HandlerError TCGetSourceRef(MediaHandler mh, TimeCodeDescriptionHandle tcdH, UserData *srefH)
  871. ;
  872.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  873.         Macro
  874.         _TCGetSourceRef
  875.             move.l              #$00080106,-(sp)
  876.             moveq               #0,D0
  877.             dc.w                $A82A
  878.         EndM
  879.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  880.         IMPORT_CFM_FUNCTION TCGetSourceRef
  881.     ENDIF
  882.  
  883. ;
  884. ; pascal HandlerError TCSetSourceRef(MediaHandler mh, TimeCodeDescriptionHandle tcdH, UserData srefH)
  885. ;
  886.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  887.         Macro
  888.         _TCSetSourceRef
  889.             move.l              #$00080107,-(sp)
  890.             moveq               #0,D0
  891.             dc.w                $A82A
  892.         EndM
  893.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  894.         IMPORT_CFM_FUNCTION TCSetSourceRef
  895.     ENDIF
  896.  
  897. ;
  898. ; pascal HandlerError TCSetTimeCodeFlags(MediaHandler mh, long flags, long flagsMask)
  899. ;
  900.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  901.         Macro
  902.         _TCSetTimeCodeFlags
  903.             move.l              #$00080108,-(sp)
  904.             moveq               #0,D0
  905.             dc.w                $A82A
  906.         EndM
  907.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  908.         IMPORT_CFM_FUNCTION TCSetTimeCodeFlags
  909.     ENDIF
  910.  
  911. ;
  912. ; pascal HandlerError TCGetTimeCodeFlags(MediaHandler mh, long *flags)
  913. ;
  914.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  915.         Macro
  916.         _TCGetTimeCodeFlags
  917.             move.l              #$00040109,-(sp)
  918.             moveq               #0,D0
  919.             dc.w                $A82A
  920.         EndM
  921.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  922.         IMPORT_CFM_FUNCTION TCGetTimeCodeFlags
  923.     ENDIF
  924.  
  925. ;
  926. ; pascal HandlerError TCSetDisplayOptions(MediaHandler mh, TCTextOptionsPtr textOptions)
  927. ;
  928.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  929.         Macro
  930.         _TCSetDisplayOptions
  931.             move.l              #$0004010A,-(sp)
  932.             moveq               #0,D0
  933.             dc.w                $A82A
  934.         EndM
  935.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  936.         IMPORT_CFM_FUNCTION TCSetDisplayOptions
  937.     ENDIF
  938.  
  939. ;
  940. ; pascal HandlerError TCGetDisplayOptions(MediaHandler mh, TCTextOptionsPtr textOptions)
  941. ;
  942.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  943.         Macro
  944.         _TCGetDisplayOptions
  945.             move.l              #$0004010B,-(sp)
  946.             moveq               #0,D0
  947.             dc.w                $A82A
  948.         EndM
  949.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  950.         IMPORT_CFM_FUNCTION TCGetDisplayOptions
  951.     ENDIF
  952.  
  953.  
  954.  
  955. ; typedef ComponentInstance             MovieImportComponent
  956.  
  957. ; typedef ComponentInstance             MovieExportComponent
  958.  
  959.  
  960. MovieImportType                    EQU        'eat '
  961. MovieExportType                    EQU        'spit'
  962.  
  963. canMovieImportHandles            EQU        $01
  964. canMovieImportFiles                EQU        $02
  965. hasMovieImportUserInterface        EQU        $04
  966. canMovieExportHandles            EQU        $08
  967. canMovieExportFiles                EQU        $10
  968. hasMovieExportUserInterface        EQU        $20
  969. dontAutoFileMovieImport            EQU        $40
  970. canMovieExportAuxDataHandle        EQU        $80
  971. canMovieImportValidateHandles    EQU        $0100
  972. canMovieImportValidateFile        EQU        $0200
  973. dontRegisterWithEasyOpen        EQU        $0400
  974. canMovieImportInPlace            EQU        $0800
  975. movieImportSubTypeIsFileExtension EQU    $1000
  976. canMovieImportPartial            EQU        $2000
  977. hasMovieImportMIMEList            EQU        $4000
  978. canMovieExportFromProcedures    EQU        $8000
  979. canMovieExportValidateMovie        EQU        $00010000
  980. movieExportNeedsResourceFork    EQU        $00020000
  981. canMovieImportDataReferences    EQU        $00040000
  982. reservedForUseByGraphicsImporters EQU    $00800000
  983.  
  984. movieImportCreateTrack            EQU        1
  985. movieImportInParallel            EQU        2
  986. movieImportMustUseTrack            EQU        4
  987.  
  988. movieImportResultUsedMultipleTracks EQU    8
  989.  
  990. kMovieExportTextOnly            EQU        0
  991. kMovieExportAbsoluteTime        EQU        1
  992. kMovieExportRelativeTime        EQU        2
  993.  
  994. kMIDIImportSilenceBefore        EQU        $01
  995. kMIDIImportSilenceAfter            EQU        $02
  996. kMIDIImport20Playable            EQU        $04
  997. kMIDIImportWantLyrics            EQU        $08
  998.  
  999. kMimeInfoMimeTypeTag            EQU        'mime'
  1000. kMimeInfoFileExtensionTag        EQU        'ext '
  1001. kMimeInfoDescriptionTag            EQU        'desc'
  1002.  
  1003. kQTFileTypeAIFF                    EQU        'AIFF'
  1004. kQTFileTypeAIFC                    EQU        'AIFC'
  1005. kQTFileTypeDVC                    EQU        'dvc!'
  1006. kQTFileTypeMIDI                    EQU        'Midi'
  1007. kQTFileTypePicture                EQU        'PICT'
  1008. kQTFileTypeMovie                EQU        'MooV'
  1009. kQTFileTypeText                    EQU        'TEXT'
  1010. kQTFileTypeWave                    EQU        'WAVE'
  1011. kQTFileTypeSystemSevenSound        EQU        'sfil'
  1012. kQTFileTypeMuLaw                EQU        'ULAW'
  1013. kQTFileTypeAVI                    EQU        'VfW '
  1014. kQTFileTypeSoundDesignerII        EQU        'Sd2f'
  1015. kQTFileTypeAudioCDTrack            EQU        'trak'
  1016. kQTFileTypePICS                    EQU        'PICS'
  1017. kQTFileTypeGIF                    EQU        'GIFf'
  1018. kQTFileTypePhotoShop            EQU        '8BPS'
  1019. kQTFileTypeSGIImage                EQU        '.SGI'
  1020. kQTFileTypeBMP                    EQU        'BMPf'
  1021. kQTFileTypeJPEG                    EQU        'JPEG'
  1022. kQTFileTypeJFIF                    EQU        'JPEG'
  1023. kQTFileTypeMacPaint                EQU        'PNTG'
  1024. kQTFileTypeTargaImage            EQU        'TPIC'
  1025. kQTFileTypeQuickDrawGXPicture    EQU        'qdgx'
  1026. kQTFileTypeQuickTimeImage        EQU        'qtif'
  1027. kQTFileType3DMF                    EQU        '3DMF'
  1028. ;  QTAtomTypes for atoms in import/export settings containers
  1029.  
  1030. kQTSettingsEffect                EQU        'effe'                ; Parent atom whose contents are atoms of an effects description
  1031. kQTSettingsMIDI                    EQU        'MIDI'                ; MIDI import related container
  1032. kQTSettingsMIDISettingFlags        EQU        'sttg'                ; MIDI import settings    (UInt32)
  1033. kQTSettingsText                    EQU        'text'                ; Text related container
  1034. kQTSettingsTextDescription        EQU        'desc'                ; Text settings (TextDescription record)
  1035. kQTSettingsTextSize                EQU        'size'                ; Width/height to create (FixedPoint)
  1036. kQTSettingsTextSettingFlags        EQU        'sttg'                ; Text export settings (UInt32)
  1037. kQTSettingsTextTimeFraction        EQU        'timf'                ; Movie time fraction for export (UInt32)
  1038. kQTSettingsTime                    EQU        'time'                ; Time related container
  1039. kQTSettingsAudioCDTrack            EQU        'trak'                ; Audio CD track related container
  1040. kQTSettingsAudioCDTrackRateShift EQU    'rshf'                ; Rate shift to be performed (SInt16)
  1041.  
  1042.  
  1043.  
  1044. MovieExportGetDataParams RECORD 0
  1045. recordSize                 ds.l    1                ; offset: $0 (0)
  1046. trackID                     ds.l    1                ; offset: $4 (4)
  1047. sourceTimeScale             ds.l    1                ; offset: $8 (8)
  1048. requestedTime             ds.l    1                ; offset: $C (12)
  1049. actualTime                 ds.l    1                ; offset: $10 (16)
  1050. dataPtr                     ds.l    1                ; offset: $14 (20)
  1051. dataSize                 ds.l    1                ; offset: $18 (24)
  1052. desc                     ds.l    1                ; offset: $1C (28)
  1053. descType                 ds.l    1                ; offset: $20 (32)
  1054. descSeed                 ds.l    1                ; offset: $24 (36)
  1055. requestedSampleCount     ds.l    1                ; offset: $28 (40)
  1056. actualSampleCount         ds.l    1                ; offset: $2C (44)
  1057. durationPerSample         ds.l    1                ; offset: $30 (48)
  1058. sampleFlags                 ds.l    1                ; offset: $34 (52)
  1059. sizeof                     EQU *                    ; size:   $38 (56)
  1060.                         ENDR
  1061. ;
  1062. ; pascal ComponentResult MovieImportHandle(MovieImportComponent ci, Handle dataH, Movie theMovie, Track targetTrack, Track *usedTrack, TimeValue atTime, TimeValue *addedDuration, long inFlags, long *outFlags)
  1063. ;
  1064.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1065.         Macro
  1066.         _MovieImportHandle
  1067.             move.l              #$00200001,-(sp)
  1068.             moveq               #0,D0
  1069.             dc.w                $A82A
  1070.         EndM
  1071.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1072.         IMPORT_CFM_FUNCTION MovieImportHandle
  1073.     ENDIF
  1074.  
  1075. ;
  1076. ; pascal ComponentResult MovieImportFile(MovieImportComponent ci, const FSSpec *theFile, Movie theMovie, Track targetTrack, Track *usedTrack, TimeValue atTime, TimeValue *addedDuration, long inFlags, long *outFlags)
  1077. ;
  1078.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1079.         Macro
  1080.         _MovieImportFile
  1081.             move.l              #$00200002,-(sp)
  1082.             moveq               #0,D0
  1083.             dc.w                $A82A
  1084.         EndM
  1085.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1086.         IMPORT_CFM_FUNCTION MovieImportFile
  1087.     ENDIF
  1088.  
  1089. ;
  1090. ; pascal ComponentResult MovieImportSetSampleDuration(MovieImportComponent ci, TimeValue duration, TimeScale scale)
  1091. ;
  1092.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1093.         Macro
  1094.         _MovieImportSetSampleDuration
  1095.             move.l              #$00080003,-(sp)
  1096.             moveq               #0,D0
  1097.             dc.w                $A82A
  1098.         EndM
  1099.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1100.         IMPORT_CFM_FUNCTION MovieImportSetSampleDuration
  1101.     ENDIF
  1102.  
  1103. ;
  1104. ; pascal ComponentResult MovieImportSetSampleDescription(MovieImportComponent ci, SampleDescriptionHandle desc, OSType mediaType)
  1105. ;
  1106.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1107.         Macro
  1108.         _MovieImportSetSampleDescription
  1109.             move.l              #$00080004,-(sp)
  1110.             moveq               #0,D0
  1111.             dc.w                $A82A
  1112.         EndM
  1113.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1114.         IMPORT_CFM_FUNCTION MovieImportSetSampleDescription
  1115.     ENDIF
  1116.  
  1117. ;
  1118. ; pascal ComponentResult MovieImportSetMediaFile(MovieImportComponent ci, AliasHandle alias)
  1119. ;
  1120.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1121.         Macro
  1122.         _MovieImportSetMediaFile
  1123.             move.l              #$00040005,-(sp)
  1124.             moveq               #0,D0
  1125.             dc.w                $A82A
  1126.         EndM
  1127.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1128.         IMPORT_CFM_FUNCTION MovieImportSetMediaFile
  1129.     ENDIF
  1130.  
  1131. ;
  1132. ; pascal ComponentResult MovieImportSetDimensions(MovieImportComponent ci, Fixed width, Fixed height)
  1133. ;
  1134.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1135.         Macro
  1136.         _MovieImportSetDimensions
  1137.             move.l              #$00080006,-(sp)
  1138.             moveq               #0,D0
  1139.             dc.w                $A82A
  1140.         EndM
  1141.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1142.         IMPORT_CFM_FUNCTION MovieImportSetDimensions
  1143.     ENDIF
  1144.  
  1145. ;
  1146. ; pascal ComponentResult MovieImportSetChunkSize(MovieImportComponent ci, long chunkSize)
  1147. ;
  1148.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1149.         Macro
  1150.         _MovieImportSetChunkSize
  1151.             move.l              #$00040007,-(sp)
  1152.             moveq               #0,D0
  1153.             dc.w                $A82A
  1154.         EndM
  1155.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1156.         IMPORT_CFM_FUNCTION MovieImportSetChunkSize
  1157.     ENDIF
  1158.  
  1159. ;
  1160. ; pascal ComponentResult MovieImportSetProgressProc(MovieImportComponent ci, MovieProgressUPP proc, long refcon)
  1161. ;
  1162.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1163.         Macro
  1164.         _MovieImportSetProgressProc
  1165.             move.l              #$00080008,-(sp)
  1166.             moveq               #0,D0
  1167.             dc.w                $A82A
  1168.         EndM
  1169.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1170.         IMPORT_CFM_FUNCTION MovieImportSetProgressProc
  1171.     ENDIF
  1172.  
  1173. ;
  1174. ; pascal ComponentResult MovieImportSetAuxiliaryData(MovieImportComponent ci, Handle data, OSType handleType)
  1175. ;
  1176.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1177.         Macro
  1178.         _MovieImportSetAuxiliaryData
  1179.             move.l              #$00080009,-(sp)
  1180.             moveq               #0,D0
  1181.             dc.w                $A82A
  1182.         EndM
  1183.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1184.         IMPORT_CFM_FUNCTION MovieImportSetAuxiliaryData
  1185.     ENDIF
  1186.  
  1187. ;
  1188. ; pascal ComponentResult MovieImportSetFromScrap(MovieImportComponent ci, Boolean fromScrap)
  1189. ;
  1190.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1191.         Macro
  1192.         _MovieImportSetFromScrap
  1193.             move.l              #$0002000A,-(sp)
  1194.             moveq               #0,D0
  1195.             dc.w                $A82A
  1196.         EndM
  1197.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1198.         IMPORT_CFM_FUNCTION MovieImportSetFromScrap
  1199.     ENDIF
  1200.  
  1201. ;
  1202. ; pascal ComponentResult MovieImportDoUserDialog(MovieImportComponent ci, const FSSpec *theFile, Handle theData, Boolean *canceled)
  1203. ;
  1204.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1205.         Macro
  1206.         _MovieImportDoUserDialog
  1207.             move.l              #$000C000B,-(sp)
  1208.             moveq               #0,D0
  1209.             dc.w                $A82A
  1210.         EndM
  1211.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1212.         IMPORT_CFM_FUNCTION MovieImportDoUserDialog
  1213.     ENDIF
  1214.  
  1215. ;
  1216. ; pascal ComponentResult MovieImportSetDuration(MovieImportComponent ci, TimeValue duration)
  1217. ;
  1218.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1219.         Macro
  1220.         _MovieImportSetDuration
  1221.             move.l              #$0004000C,-(sp)
  1222.             moveq               #0,D0
  1223.             dc.w                $A82A
  1224.         EndM
  1225.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1226.         IMPORT_CFM_FUNCTION MovieImportSetDuration
  1227.     ENDIF
  1228.  
  1229. ;
  1230. ; pascal ComponentResult MovieImportGetAuxiliaryDataType(MovieImportComponent ci, OSType *auxType)
  1231. ;
  1232.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1233.         Macro
  1234.         _MovieImportGetAuxiliaryDataType
  1235.             move.l              #$0004000D,-(sp)
  1236.             moveq               #0,D0
  1237.             dc.w                $A82A
  1238.         EndM
  1239.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1240.         IMPORT_CFM_FUNCTION MovieImportGetAuxiliaryDataType
  1241.     ENDIF
  1242.  
  1243. ;
  1244. ; pascal ComponentResult MovieImportValidate(MovieImportComponent ci, const FSSpec *theFile, Handle theData, Boolean *valid)
  1245. ;
  1246.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1247.         Macro
  1248.         _MovieImportValidate
  1249.             move.l              #$000C000E,-(sp)
  1250.             moveq               #0,D0
  1251.             dc.w                $A82A
  1252.         EndM
  1253.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1254.         IMPORT_CFM_FUNCTION MovieImportValidate
  1255.     ENDIF
  1256.  
  1257. ;
  1258. ; pascal ComponentResult MovieImportGetFileType(MovieImportComponent ci, OSType *fileType)
  1259. ;
  1260.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1261.         Macro
  1262.         _MovieImportGetFileType
  1263.             move.l              #$0004000F,-(sp)
  1264.             moveq               #0,D0
  1265.             dc.w                $A82A
  1266.         EndM
  1267.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1268.         IMPORT_CFM_FUNCTION MovieImportGetFileType
  1269.     ENDIF
  1270.  
  1271. ;
  1272. ; pascal ComponentResult MovieImportDataRef(MovieImportComponent ci, Handle dataRef, OSType dataRefType, Movie theMovie, Track targetTrack, Track *usedTrack, TimeValue atTime, TimeValue *addedDuration, long inFlags, long *outFlags)
  1273. ;
  1274.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1275.         Macro
  1276.         _MovieImportDataRef
  1277.             move.l              #$00240010,-(sp)
  1278.             moveq               #0,D0
  1279.             dc.w                $A82A
  1280.         EndM
  1281.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1282.         IMPORT_CFM_FUNCTION MovieImportDataRef
  1283.     ENDIF
  1284.  
  1285. ;
  1286. ; pascal ComponentResult MovieImportGetSampleDescription(MovieImportComponent ci, SampleDescriptionHandle *desc, OSType *mediaType)
  1287. ;
  1288.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1289.         Macro
  1290.         _MovieImportGetSampleDescription
  1291.             move.l              #$00080011,-(sp)
  1292.             moveq               #0,D0
  1293.             dc.w                $A82A
  1294.         EndM
  1295.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1296.         IMPORT_CFM_FUNCTION MovieImportGetSampleDescription
  1297.     ENDIF
  1298.  
  1299. ;
  1300. ; pascal ComponentResult MovieImportGetMIMETypeList(MovieImportComponent ci, QTAtomContainer *mimeInfo)
  1301. ;
  1302.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1303.         Macro
  1304.         _MovieImportGetMIMETypeList
  1305.             move.l              #$00040012,-(sp)
  1306.             moveq               #0,D0
  1307.             dc.w                $A82A
  1308.         EndM
  1309.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1310.         IMPORT_CFM_FUNCTION MovieImportGetMIMETypeList
  1311.     ENDIF
  1312.  
  1313. ;
  1314. ; pascal ComponentResult MovieImportSetOffsetAndLimit(MovieImportComponent ci, unsigned long offset, unsigned long limit)
  1315. ;
  1316.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1317.         Macro
  1318.         _MovieImportSetOffsetAndLimit
  1319.             move.l              #$00080013,-(sp)
  1320.             moveq               #0,D0
  1321.             dc.w                $A82A
  1322.         EndM
  1323.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1324.         IMPORT_CFM_FUNCTION MovieImportSetOffsetAndLimit
  1325.     ENDIF
  1326.  
  1327. ;
  1328. ; pascal ComponentResult MovieImportGetSettingsAsAtomContainer(MovieImportComponent ci, QTAtomContainer *settings)
  1329. ;
  1330.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1331.         Macro
  1332.         _MovieImportGetSettingsAsAtomContainer
  1333.             move.l              #$00040014,-(sp)
  1334.             moveq               #0,D0
  1335.             dc.w                $A82A
  1336.         EndM
  1337.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1338.         IMPORT_CFM_FUNCTION MovieImportGetSettingsAsAtomContainer
  1339.     ENDIF
  1340.  
  1341. ;
  1342. ; pascal ComponentResult MovieImportSetSettingsFromAtomContainer(MovieImportComponent ci, QTAtomContainer settings)
  1343. ;
  1344.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1345.         Macro
  1346.         _MovieImportSetSettingsFromAtomContainer
  1347.             move.l              #$00040015,-(sp)
  1348.             moveq               #0,D0
  1349.             dc.w                $A82A
  1350.         EndM
  1351.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1352.         IMPORT_CFM_FUNCTION MovieImportSetSettingsFromAtomContainer
  1353.     ENDIF
  1354.  
  1355. ;
  1356. ; pascal ComponentResult MovieExportToHandle(MovieExportComponent ci, Handle dataH, Movie theMovie, Track onlyThisTrack, TimeValue startTime, TimeValue duration)
  1357. ;
  1358.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1359.         Macro
  1360.         _MovieExportToHandle
  1361.             move.l              #$00140080,-(sp)
  1362.             moveq               #0,D0
  1363.             dc.w                $A82A
  1364.         EndM
  1365.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1366.         IMPORT_CFM_FUNCTION MovieExportToHandle
  1367.     ENDIF
  1368.  
  1369. ;
  1370. ; pascal ComponentResult MovieExportToFile(MovieExportComponent ci, const FSSpec *theFile, Movie theMovie, Track onlyThisTrack, TimeValue startTime, TimeValue duration)
  1371. ;
  1372.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1373.         Macro
  1374.         _MovieExportToFile
  1375.             move.l              #$00140081,-(sp)
  1376.             moveq               #0,D0
  1377.             dc.w                $A82A
  1378.         EndM
  1379.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1380.         IMPORT_CFM_FUNCTION MovieExportToFile
  1381.     ENDIF
  1382.  
  1383. ;
  1384. ; pascal ComponentResult MovieExportGetAuxiliaryData(MovieExportComponent ci, Handle dataH, OSType *handleType)
  1385. ;
  1386.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1387.         Macro
  1388.         _MovieExportGetAuxiliaryData
  1389.             move.l              #$00080083,-(sp)
  1390.             moveq               #0,D0
  1391.             dc.w                $A82A
  1392.         EndM
  1393.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1394.         IMPORT_CFM_FUNCTION MovieExportGetAuxiliaryData
  1395.     ENDIF
  1396.  
  1397. ;
  1398. ; pascal ComponentResult MovieExportSetProgressProc(MovieExportComponent ci, MovieProgressUPP proc, long refcon)
  1399. ;
  1400.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1401.         Macro
  1402.         _MovieExportSetProgressProc
  1403.             move.l              #$00080084,-(sp)
  1404.             moveq               #0,D0
  1405.             dc.w                $A82A
  1406.         EndM
  1407.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1408.         IMPORT_CFM_FUNCTION MovieExportSetProgressProc
  1409.     ENDIF
  1410.  
  1411. ;
  1412. ; pascal ComponentResult MovieExportSetSampleDescription(MovieExportComponent ci, SampleDescriptionHandle desc, OSType mediaType)
  1413. ;
  1414.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1415.         Macro
  1416.         _MovieExportSetSampleDescription
  1417.             move.l              #$00080085,-(sp)
  1418.             moveq               #0,D0
  1419.             dc.w                $A82A
  1420.         EndM
  1421.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1422.         IMPORT_CFM_FUNCTION MovieExportSetSampleDescription
  1423.     ENDIF
  1424.  
  1425. ;
  1426. ; pascal ComponentResult MovieExportDoUserDialog(MovieExportComponent ci, Movie theMovie, Track onlyThisTrack, TimeValue startTime, TimeValue duration, Boolean *canceled)
  1427. ;
  1428.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1429.         Macro
  1430.         _MovieExportDoUserDialog
  1431.             move.l              #$00140086,-(sp)
  1432.             moveq               #0,D0
  1433.             dc.w                $A82A
  1434.         EndM
  1435.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1436.         IMPORT_CFM_FUNCTION MovieExportDoUserDialog
  1437.     ENDIF
  1438.  
  1439. ;
  1440. ; pascal ComponentResult MovieExportGetCreatorType(MovieExportComponent ci, OSType *creator)
  1441. ;
  1442.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1443.         Macro
  1444.         _MovieExportGetCreatorType
  1445.             move.l              #$00040087,-(sp)
  1446.             moveq               #0,D0
  1447.             dc.w                $A82A
  1448.         EndM
  1449.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1450.         IMPORT_CFM_FUNCTION MovieExportGetCreatorType
  1451.     ENDIF
  1452.  
  1453. ;
  1454. ; pascal ComponentResult MovieExportToDataRef(MovieExportComponent ci, Handle dataRef, OSType dataRefType, Movie theMovie, Track onlyThisTrack, TimeValue startTime, TimeValue duration)
  1455. ;
  1456.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1457.         Macro
  1458.         _MovieExportToDataRef
  1459.             move.l              #$00180088,-(sp)
  1460.             moveq               #0,D0
  1461.             dc.w                $A82A
  1462.         EndM
  1463.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1464.         IMPORT_CFM_FUNCTION MovieExportToDataRef
  1465.     ENDIF
  1466.  
  1467. ;
  1468. ; pascal ComponentResult MovieExportFromProceduresToDataRef(MovieExportComponent ci, Handle dataRef, OSType dataRefType)
  1469. ;
  1470.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1471.         Macro
  1472.         _MovieExportFromProceduresToDataRef
  1473.             move.l              #$00080089,-(sp)
  1474.             moveq               #0,D0
  1475.             dc.w                $A82A
  1476.         EndM
  1477.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1478.         IMPORT_CFM_FUNCTION MovieExportFromProceduresToDataRef
  1479.     ENDIF
  1480.  
  1481. ;
  1482. ; pascal ComponentResult MovieExportAddDataSource(MovieExportComponent ci, OSType trackType, TimeScale scale, long *trackID, MovieExportGetPropertyUPP getPropertyProc, MovieExportGetDataUPP getDataProc, void *refCon)
  1483. ;
  1484.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1485.         Macro
  1486.         _MovieExportAddDataSource
  1487.             move.l              #$0018008A,-(sp)
  1488.             moveq               #0,D0
  1489.             dc.w                $A82A
  1490.         EndM
  1491.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1492.         IMPORT_CFM_FUNCTION MovieExportAddDataSource
  1493.     ENDIF
  1494.  
  1495. ;
  1496. ; pascal ComponentResult MovieExportValidate(MovieExportComponent ci, Movie theMovie, Track onlyThisTrack, Boolean *valid)
  1497. ;
  1498.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1499.         Macro
  1500.         _MovieExportValidate
  1501.             move.l              #$000C008B,-(sp)
  1502.             moveq               #0,D0
  1503.             dc.w                $A82A
  1504.         EndM
  1505.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1506.         IMPORT_CFM_FUNCTION MovieExportValidate
  1507.     ENDIF
  1508.  
  1509. ;
  1510. ; pascal ComponentResult MovieExportGetSettingsAsAtomContainer(MovieExportComponent ci, QTAtomContainer *settings)
  1511. ;
  1512.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1513.         Macro
  1514.         _MovieExportGetSettingsAsAtomContainer
  1515.             move.l              #$0004008C,-(sp)
  1516.             moveq               #0,D0
  1517.             dc.w                $A82A
  1518.         EndM
  1519.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1520.         IMPORT_CFM_FUNCTION MovieExportGetSettingsAsAtomContainer
  1521.     ENDIF
  1522.  
  1523. ;
  1524. ; pascal ComponentResult MovieExportSetSettingsFromAtomContainer(MovieExportComponent ci, QTAtomContainer settings)
  1525. ;
  1526.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1527.         Macro
  1528.         _MovieExportSetSettingsFromAtomContainer
  1529.             move.l              #$0004008D,-(sp)
  1530.             moveq               #0,D0
  1531.             dc.w                $A82A
  1532.         EndM
  1533.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1534.         IMPORT_CFM_FUNCTION MovieExportSetSettingsFromAtomContainer
  1535.     ENDIF
  1536.  
  1537. ;
  1538. ; pascal ComponentResult MovieExportGetFileNameExtension(MovieExportComponent ci, OSType *extension)
  1539. ;
  1540.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1541.         Macro
  1542.         _MovieExportGetFileNameExtension
  1543.             move.l              #$0004008E,-(sp)
  1544.             moveq               #0,D0
  1545.             dc.w                $A82A
  1546.         EndM
  1547.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1548.         IMPORT_CFM_FUNCTION MovieExportGetFileNameExtension
  1549.     ENDIF
  1550.  
  1551. ;
  1552. ; pascal ComponentResult MovieExportGetShortFileTypeString(MovieExportComponent ci, Str255 typeString)
  1553. ;
  1554.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1555.         Macro
  1556.         _MovieExportGetShortFileTypeString
  1557.             move.l              #$0004008F,-(sp)
  1558.             moveq               #0,D0
  1559.             dc.w                $A82A
  1560.         EndM
  1561.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1562.         IMPORT_CFM_FUNCTION MovieExportGetShortFileTypeString
  1563.     ENDIF
  1564.  
  1565.      IF ¬ GENERATINGPOWERPC THEN 
  1566. ;  Text Export Display Info data structure
  1567. TextDisplayData            RECORD 0
  1568. displayFlags             ds.l    1                ; offset: $0 (0)
  1569. textJustification         ds.l    1                ; offset: $4 (4)
  1570. bgColor                     ds        RGBColor        ; offset: $8 (8)
  1571. textBox                     ds        Rect            ; offset: $E (14)
  1572. beginHilite                 ds.w    1                ; offset: $16 (22)
  1573. endHilite                 ds.w    1                ; offset: $18 (24)
  1574. hiliteColor                 ds        RGBColor        ; offset: $1A (26)
  1575. doHiliteColor             ds.b    1                ; offset: $20 (32)
  1576. filler                     ds.b    1                ; offset: $21 (33)
  1577. scrollDelayDur             ds.l    1                ; offset: $22 (34)
  1578. dropShadowOffset         ds        Point            ; offset: $26 (38)
  1579. dropShadowTransparency     ds.w    1                ; offset: $2A (42)
  1580. sizeof                     EQU *                    ; size:   $2C (44)
  1581.                         ENDR
  1582.     ENDIF
  1583. ; typedef ComponentInstance             TextExportComponent
  1584.  
  1585. ; typedef ComponentInstance             GraphicImageMovieImportComponent
  1586.  
  1587. ;
  1588. ; pascal ComponentResult TextExportGetDisplayData(TextExportComponent ci, TextDisplayData *textDisplay)
  1589. ;
  1590.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1591.         Macro
  1592.         _TextExportGetDisplayData
  1593.             move.l              #$00040100,-(sp)
  1594.             moveq               #0,D0
  1595.             dc.w                $A82A
  1596.         EndM
  1597.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1598.         IMPORT_CFM_FUNCTION TextExportGetDisplayData
  1599.     ENDIF
  1600.  
  1601. ;
  1602. ; pascal ComponentResult TextExportGetTimeFraction(TextExportComponent ci, long *movieTimeFraction)
  1603. ;
  1604.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1605.         Macro
  1606.         _TextExportGetTimeFraction
  1607.             move.l              #$00040101,-(sp)
  1608.             moveq               #0,D0
  1609.             dc.w                $A82A
  1610.         EndM
  1611.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1612.         IMPORT_CFM_FUNCTION TextExportGetTimeFraction
  1613.     ENDIF
  1614.  
  1615. ;
  1616. ; pascal ComponentResult TextExportSetTimeFraction(TextExportComponent ci, long movieTimeFraction)
  1617. ;
  1618.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1619.         Macro
  1620.         _TextExportSetTimeFraction
  1621.             move.l              #$00040102,-(sp)
  1622.             moveq               #0,D0
  1623.             dc.w                $A82A
  1624.         EndM
  1625.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1626.         IMPORT_CFM_FUNCTION TextExportSetTimeFraction
  1627.     ENDIF
  1628.  
  1629. ;
  1630. ; pascal ComponentResult TextExportGetSettings(TextExportComponent ci, long *setting)
  1631. ;
  1632.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1633.         Macro
  1634.         _TextExportGetSettings
  1635.             move.l              #$00040103,-(sp)
  1636.             moveq               #0,D0
  1637.             dc.w                $A82A
  1638.         EndM
  1639.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1640.         IMPORT_CFM_FUNCTION TextExportGetSettings
  1641.     ENDIF
  1642.  
  1643. ;
  1644. ; pascal ComponentResult TextExportSetSettings(TextExportComponent ci, long setting)
  1645. ;
  1646.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1647.         Macro
  1648.         _TextExportSetSettings
  1649.             move.l              #$00040104,-(sp)
  1650.             moveq               #0,D0
  1651.             dc.w                $A82A
  1652.         EndM
  1653.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1654.         IMPORT_CFM_FUNCTION TextExportSetSettings
  1655.     ENDIF
  1656.  
  1657. ;
  1658. ; pascal ComponentResult MIDIImportGetSettings(TextExportComponent ci, long *setting)
  1659. ;
  1660.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1661.         Macro
  1662.         _MIDIImportGetSettings
  1663.             move.l              #$00040100,-(sp)
  1664.             moveq               #0,D0
  1665.             dc.w                $A82A
  1666.         EndM
  1667.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1668.         IMPORT_CFM_FUNCTION MIDIImportGetSettings
  1669.     ENDIF
  1670.  
  1671. ;
  1672. ; pascal ComponentResult MIDIImportSetSettings(TextExportComponent ci, long setting)
  1673. ;
  1674.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1675.         Macro
  1676.         _MIDIImportSetSettings
  1677.             move.l              #$00040101,-(sp)
  1678.             moveq               #0,D0
  1679.             dc.w                $A82A
  1680.         EndM
  1681.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1682.         IMPORT_CFM_FUNCTION MIDIImportSetSettings
  1683.     ENDIF
  1684.  
  1685. ;
  1686. ; pascal ComponentResult MovieExportNewGetDataAndPropertiesProcs(MovieExportComponent ci, OSType trackType, TimeScale *scale, Movie theMovie, Track theTrack, TimeValue startTime, TimeValue duration, MovieExportGetPropertyUPP *getPropertyProc, MovieExportGetDataUPP *getDataProc, void **refCon)
  1687. ;
  1688.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1689.         Macro
  1690.         _MovieExportNewGetDataAndPropertiesProcs
  1691.             move.l              #$00240100,-(sp)
  1692.             moveq               #0,D0
  1693.             dc.w                $A82A
  1694.         EndM
  1695.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1696.         IMPORT_CFM_FUNCTION MovieExportNewGetDataAndPropertiesProcs
  1697.     ENDIF
  1698.  
  1699. ;
  1700. ; pascal ComponentResult MovieExportDisposeGetDataAndPropertiesProcs(MovieExportComponent ci, MovieExportGetPropertyUPP getPropertyProc, MovieExportGetDataUPP getDataProc, void *refCon)
  1701. ;
  1702.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1703.         Macro
  1704.         _MovieExportDisposeGetDataAndPropertiesProcs
  1705.             move.l              #$000C0101,-(sp)
  1706.             moveq               #0,D0
  1707.             dc.w                $A82A
  1708.         EndM
  1709.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1710.         IMPORT_CFM_FUNCTION MovieExportDisposeGetDataAndPropertiesProcs
  1711.     ENDIF
  1712.  
  1713.  
  1714. movieExportWidth                EQU        'wdth'                ; pointer to Fixed
  1715. movieExportHeight                EQU        'hegt'                ; pointer to Fixed
  1716. movieExportDuration                EQU        'dura'                ; pointer to TimeRecord
  1717. movieExportVideoFilter            EQU        'iflt'                ; pointer to QTAtomContainer
  1718. ;
  1719. ; pascal ComponentResult GraphicsImageImportSetSequenceEnabled(GraphicImageMovieImportComponent ci, Boolean enable)
  1720. ;
  1721.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1722.         Macro
  1723.         _GraphicsImageImportSetSequenceEnabled
  1724.             move.l              #$00020100,-(sp)
  1725.             moveq               #0,D0
  1726.             dc.w                $A82A
  1727.         EndM
  1728.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1729.         IMPORT_CFM_FUNCTION GraphicsImageImportSetSequenceEnabled
  1730.     ENDIF
  1731.  
  1732. ;
  1733. ; pascal ComponentResult GraphicsImageImportGetSequenceEnabled(GraphicImageMovieImportComponent ci, Boolean *enable)
  1734. ;
  1735.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1736.         Macro
  1737.         _GraphicsImageImportGetSequenceEnabled
  1738.             move.l              #$00040101,-(sp)
  1739.             moveq               #0,D0
  1740.             dc.w                $A82A
  1741.         EndM
  1742.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1743.         IMPORT_CFM_FUNCTION GraphicsImageImportGetSequenceEnabled
  1744.     ENDIF
  1745.  
  1746.  
  1747.  
  1748.  
  1749.  
  1750.  
  1751.  
  1752.  
  1753. ; ***************
  1754. ;
  1755. ;    File Preview Components
  1756. ;
  1757. ;**************
  1758.  
  1759. ; typedef ComponentInstance             pnotComponent
  1760.  
  1761.  
  1762. pnotComponentWantsEvents        EQU        1
  1763. pnotComponentNeedsNoCache        EQU        2
  1764.  
  1765. ShowFilePreviewComponentType    EQU        'pnot'
  1766. CreateFilePreviewComponentType    EQU        'pmak'
  1767. ;
  1768. ; pascal ComponentResult PreviewShowData(pnotComponent p, OSType dataType, Handle data, const Rect *inHere)
  1769. ;
  1770.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1771.         Macro
  1772.         _PreviewShowData
  1773.             move.l              #$000C0001,-(sp)
  1774.             moveq               #0,D0
  1775.             dc.w                $A82A
  1776.         EndM
  1777.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1778.         IMPORT_CFM_FUNCTION PreviewShowData
  1779.     ENDIF
  1780.  
  1781. ;
  1782. ; pascal ComponentResult PreviewMakePreview(pnotComponent p, OSType *previewType, Handle *previewResult, const FSSpec *sourceFile, ICMProgressProcRecordPtr progress)
  1783. ;
  1784.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1785.         Macro
  1786.         _PreviewMakePreview
  1787.             move.l              #$00100002,-(sp)
  1788.             moveq               #0,D0
  1789.             dc.w                $A82A
  1790.         EndM
  1791.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1792.         IMPORT_CFM_FUNCTION PreviewMakePreview
  1793.     ENDIF
  1794.  
  1795. ;
  1796. ; pascal ComponentResult PreviewMakePreviewReference(pnotComponent p, OSType *previewType, short *resID, const FSSpec *sourceFile)
  1797. ;
  1798.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1799.         Macro
  1800.         _PreviewMakePreviewReference
  1801.             move.l              #$000C0003,-(sp)
  1802.             moveq               #0,D0
  1803.             dc.w                $A82A
  1804.         EndM
  1805.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1806.         IMPORT_CFM_FUNCTION PreviewMakePreviewReference
  1807.     ENDIF
  1808.  
  1809. ;
  1810. ; pascal ComponentResult PreviewEvent(pnotComponent p, EventRecord *e, Boolean *handledEvent)
  1811. ;
  1812.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1813.         Macro
  1814.         _PreviewEvent
  1815.             move.l              #$00080004,-(sp)
  1816.             moveq               #0,D0
  1817.             dc.w                $A82A
  1818.         EndM
  1819.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1820.         IMPORT_CFM_FUNCTION PreviewEvent
  1821.     ENDIF
  1822.  
  1823.  
  1824.  
  1825. ; typedef ComponentInstance             DataCompressorComponent
  1826.  
  1827. ; typedef ComponentInstance             DataDecompressorComponent
  1828.  
  1829. ; typedef ComponentInstance             DataCodecComponent
  1830.  
  1831.  
  1832. DataCompressorComponentType        EQU        'dcom'
  1833. DataDecompressorComponentType    EQU        'ddec'
  1834. AppleDataCompressorSubType        EQU        'adec'
  1835. zlibDataCompressorSubType        EQU        'zlib'
  1836.  
  1837. ; * These are DataCodec procedures *
  1838. ;
  1839. ; pascal ComponentResult DataCodecDecompress(DataCodecComponent dc, void *srcData, UInt32 srcSize, void *dstData, UInt32 dstBufferSize)
  1840. ;
  1841.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1842.         Macro
  1843.         _DataCodecDecompress
  1844.             move.l              #$00100001,-(sp)
  1845.             moveq               #0,D0
  1846.             dc.w                $A82A
  1847.         EndM
  1848.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1849.         IMPORT_CFM_FUNCTION DataCodecDecompress
  1850.     ENDIF
  1851.  
  1852. ;
  1853. ; pascal ComponentResult DataCodecGetCompressBufferSize(DataCodecComponent dc, UInt32 srcSize, UInt32 *dstSize)
  1854. ;
  1855.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1856.         Macro
  1857.         _DataCodecGetCompressBufferSize
  1858.             move.l              #$00080002,-(sp)
  1859.             moveq               #0,D0
  1860.             dc.w                $A82A
  1861.         EndM
  1862.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1863.         IMPORT_CFM_FUNCTION DataCodecGetCompressBufferSize
  1864.     ENDIF
  1865.  
  1866. ;
  1867. ; pascal ComponentResult DataCodecCompress(DataCodecComponent dc, void *srcData, UInt32 srcSize, void *dstData, UInt32 dstBufferSize, UInt32 *actualDstSize, UInt32 *decompressSlop)
  1868. ;
  1869.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1870.         Macro
  1871.         _DataCodecCompress
  1872.             move.l              #$00180003,-(sp)
  1873.             moveq               #0,D0
  1874.             dc.w                $A82A
  1875.         EndM
  1876.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1877.         IMPORT_CFM_FUNCTION DataCodecCompress
  1878.     ENDIF
  1879.  
  1880. ;
  1881. ; pascal ComponentResult DataCodecBeginInterruptSafe(DataCodecComponent dc, unsigned long maxSrcSize)
  1882. ;
  1883.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1884.         Macro
  1885.         _DataCodecBeginInterruptSafe
  1886.             move.l              #$00040004,-(sp)
  1887.             moveq               #0,D0
  1888.             dc.w                $A82A
  1889.         EndM
  1890.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1891.         IMPORT_CFM_FUNCTION DataCodecBeginInterruptSafe
  1892.     ENDIF
  1893.  
  1894. ;
  1895. ; pascal ComponentResult DataCodecEndInterruptSafe(DataCodecComponent dc)
  1896. ;
  1897.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1898.         Macro
  1899.         _DataCodecEndInterruptSafe
  1900.             move.l              #$00000005,-(sp)
  1901.             moveq               #0,D0
  1902.             dc.w                $A82A
  1903.         EndM
  1904.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1905.         IMPORT_CFM_FUNCTION DataCodecEndInterruptSafe
  1906.     ENDIF
  1907.  
  1908. ;
  1909. ; pascal ComponentResult DataCodecDecompressPartial(DataCodecComponent dc, void **next_in, unsigned long *avail_in, unsigned long *total_in, void **next_out, unsigned long *avail_out, unsigned long *total_out, Boolean *didFinish)
  1910. ;
  1911.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1912.         Macro
  1913.         _DataCodecDecompressPartial
  1914.             move.l              #$001C0006,-(sp)
  1915.             moveq               #0,D0
  1916.             dc.w                $A82A
  1917.         EndM
  1918.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1919.         IMPORT_CFM_FUNCTION DataCodecDecompressPartial
  1920.     ENDIF
  1921.  
  1922. ;
  1923. ; pascal ComponentResult DataCodecCompressPartial(DataCodecComponent dc, void **next_in, unsigned long *avail_in, unsigned long *total_in, void **next_out, unsigned long *avail_out, unsigned long *total_out, Boolean tryToFinish, Boolean *didFinish)
  1924. ;
  1925.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1926.         Macro
  1927.         _DataCodecCompressPartial
  1928.             move.l              #$001E0007,-(sp)
  1929.             moveq               #0,D0
  1930.             dc.w                $A82A
  1931.         EndM
  1932.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1933.         IMPORT_CFM_FUNCTION DataCodecCompressPartial
  1934.     ENDIF
  1935.  
  1936.  
  1937.  
  1938.  
  1939.  
  1940.  
  1941. kDataHCanRead                    EQU        $00000001
  1942. kDataHSpecialRead                EQU        $00000002
  1943. kDataHSpecialReadFile            EQU        $00000004
  1944. kDataHCanWrite                    EQU        $00000008
  1945. kDataHSpecialWrite                EQU        $10
  1946. kDataHSpecialWriteFile            EQU        $20
  1947. kDataHCanStreamingWrite            EQU        $40
  1948. kDataHMustCheckDataRef            EQU        $80
  1949. DataHVolumeListRecord    RECORD 0
  1950. vRefNum                     ds.w    1                ; offset: $0 (0)
  1951. flags                     ds.l    1                ; offset: $2 (2)
  1952. sizeof                     EQU *                    ; size:   $6 (6)
  1953.                         ENDR
  1954. ; typedef struct DataHVolumeListRecord * DataHVolumeListPtr
  1955.  
  1956. ; typedef DataHVolumeListPtr *            DataHVolumeList
  1957.  
  1958.  
  1959. kDataHExtendedSchedule            EQU        'xtnd'
  1960. DataHScheduleRecord        RECORD 0
  1961. timeNeededBy             ds        TimeRecord        ; offset: $0 (0)
  1962. extendedID                 ds.l    1                ; offset: $10 (16)        ;  always is kDataHExtendedSchedule
  1963. extendedVers             ds.l    1                ; offset: $14 (20)        ;  always set to 0
  1964. priority                 ds.l    1                ; offset: $18 (24)        ;  100.0 or more means must have. lower numbers…
  1965. sizeof                     EQU *                    ; size:   $1C (28)
  1966.                         ENDR
  1967. ; typedef struct DataHScheduleRecord *    DataHSchedulePtr
  1968.  
  1969.  
  1970.  
  1971. ;
  1972. ; pascal ComponentResult DataHGetData(DataHandler dh, Handle h, long hOffset, long offset, long size)
  1973. ;
  1974.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1975.         Macro
  1976.         _DataHGetData
  1977.             move.l              #$00100002,-(sp)
  1978.             moveq               #0,D0
  1979.             dc.w                $A82A
  1980.         EndM
  1981.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1982.         IMPORT_CFM_FUNCTION DataHGetData
  1983.     ENDIF
  1984.  
  1985. ;
  1986. ; pascal ComponentResult DataHPutData(DataHandler dh, Handle h, long hOffset, long *offset, long size)
  1987. ;
  1988.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1989.         Macro
  1990.         _DataHPutData
  1991.             move.l              #$00100003,-(sp)
  1992.             moveq               #0,D0
  1993.             dc.w                $A82A
  1994.         EndM
  1995.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1996.         IMPORT_CFM_FUNCTION DataHPutData
  1997.     ENDIF
  1998.  
  1999. ;
  2000. ; pascal ComponentResult DataHFlushData(DataHandler dh)
  2001. ;
  2002.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2003.         Macro
  2004.         _DataHFlushData
  2005.             move.l              #$00000004,-(sp)
  2006.             moveq               #0,D0
  2007.             dc.w                $A82A
  2008.         EndM
  2009.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2010.         IMPORT_CFM_FUNCTION DataHFlushData
  2011.     ENDIF
  2012.  
  2013. ;
  2014. ; pascal ComponentResult DataHOpenForWrite(DataHandler dh)
  2015. ;
  2016.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2017.         Macro
  2018.         _DataHOpenForWrite
  2019.             move.l              #$00000005,-(sp)
  2020.             moveq               #0,D0
  2021.             dc.w                $A82A
  2022.         EndM
  2023.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2024.         IMPORT_CFM_FUNCTION DataHOpenForWrite
  2025.     ENDIF
  2026.  
  2027. ;
  2028. ; pascal ComponentResult DataHCloseForWrite(DataHandler dh)
  2029. ;
  2030.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2031.         Macro
  2032.         _DataHCloseForWrite
  2033.             move.l              #$00000006,-(sp)
  2034.             moveq               #0,D0
  2035.             dc.w                $A82A
  2036.         EndM
  2037.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2038.         IMPORT_CFM_FUNCTION DataHCloseForWrite
  2039.     ENDIF
  2040.  
  2041.  
  2042. ;
  2043. ; pascal ComponentResult DataHOpenForRead(DataHandler dh)
  2044. ;
  2045.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2046.         Macro
  2047.         _DataHOpenForRead
  2048.             move.l              #$00000008,-(sp)
  2049.             moveq               #0,D0
  2050.             dc.w                $A82A
  2051.         EndM
  2052.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2053.         IMPORT_CFM_FUNCTION DataHOpenForRead
  2054.     ENDIF
  2055.  
  2056. ;
  2057. ; pascal ComponentResult DataHCloseForRead(DataHandler dh)
  2058. ;
  2059.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2060.         Macro
  2061.         _DataHCloseForRead
  2062.             move.l              #$00000009,-(sp)
  2063.             moveq               #0,D0
  2064.             dc.w                $A82A
  2065.         EndM
  2066.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2067.         IMPORT_CFM_FUNCTION DataHCloseForRead
  2068.     ENDIF
  2069.  
  2070. ;
  2071. ; pascal ComponentResult DataHSetDataRef(DataHandler dh, Handle dataRef)
  2072. ;
  2073.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2074.         Macro
  2075.         _DataHSetDataRef
  2076.             move.l              #$0004000A,-(sp)
  2077.             moveq               #0,D0
  2078.             dc.w                $A82A
  2079.         EndM
  2080.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2081.         IMPORT_CFM_FUNCTION DataHSetDataRef
  2082.     ENDIF
  2083.  
  2084. ;
  2085. ; pascal ComponentResult DataHGetDataRef(DataHandler dh, Handle *dataRef)
  2086. ;
  2087.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2088.         Macro
  2089.         _DataHGetDataRef
  2090.             move.l              #$0004000B,-(sp)
  2091.             moveq               #0,D0
  2092.             dc.w                $A82A
  2093.         EndM
  2094.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2095.         IMPORT_CFM_FUNCTION DataHGetDataRef
  2096.     ENDIF
  2097.  
  2098. ;
  2099. ; pascal ComponentResult DataHCompareDataRef(DataHandler dh, Handle dataRef, Boolean *equal)
  2100. ;
  2101.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2102.         Macro
  2103.         _DataHCompareDataRef
  2104.             move.l              #$0008000C,-(sp)
  2105.             moveq               #0,D0
  2106.             dc.w                $A82A
  2107.         EndM
  2108.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2109.         IMPORT_CFM_FUNCTION DataHCompareDataRef
  2110.     ENDIF
  2111.  
  2112. ;
  2113. ; pascal ComponentResult DataHTask(DataHandler dh)
  2114. ;
  2115.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2116.         Macro
  2117.         _DataHTask
  2118.             move.l              #$0000000D,-(sp)
  2119.             moveq               #0,D0
  2120.             dc.w                $A82A
  2121.         EndM
  2122.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2123.         IMPORT_CFM_FUNCTION DataHTask
  2124.     ENDIF
  2125.  
  2126. ;
  2127. ; pascal ComponentResult DataHScheduleData(DataHandler dh, Ptr PlaceToPutDataPtr, long FileOffset, long DataSize, long RefCon, DataHSchedulePtr scheduleRec, DataHCompletionUPP CompletionRtn)
  2128. ;
  2129.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2130.         Macro
  2131.         _DataHScheduleData
  2132.             move.l              #$0018000E,-(sp)
  2133.             moveq               #0,D0
  2134.             dc.w                $A82A
  2135.         EndM
  2136.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2137.         IMPORT_CFM_FUNCTION DataHScheduleData
  2138.     ENDIF
  2139.  
  2140. ;
  2141. ; pascal ComponentResult DataHFinishData(DataHandler dh, Ptr PlaceToPutDataPtr, Boolean Cancel)
  2142. ;
  2143.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2144.         Macro
  2145.         _DataHFinishData
  2146.             move.l              #$0006000F,-(sp)
  2147.             moveq               #0,D0
  2148.             dc.w                $A82A
  2149.         EndM
  2150.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2151.         IMPORT_CFM_FUNCTION DataHFinishData
  2152.     ENDIF
  2153.  
  2154. ;
  2155. ; pascal ComponentResult DataHFlushCache(DataHandler dh)
  2156. ;
  2157.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2158.         Macro
  2159.         _DataHFlushCache
  2160.             move.l              #$00000010,-(sp)
  2161.             moveq               #0,D0
  2162.             dc.w                $A82A
  2163.         EndM
  2164.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2165.         IMPORT_CFM_FUNCTION DataHFlushCache
  2166.     ENDIF
  2167.  
  2168. ;
  2169. ; pascal ComponentResult DataHResolveDataRef(DataHandler dh, Handle theDataRef, Boolean *wasChanged, Boolean userInterfaceAllowed)
  2170. ;
  2171.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2172.         Macro
  2173.         _DataHResolveDataRef
  2174.             move.l              #$000A0011,-(sp)
  2175.             moveq               #0,D0
  2176.             dc.w                $A82A
  2177.         EndM
  2178.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2179.         IMPORT_CFM_FUNCTION DataHResolveDataRef
  2180.     ENDIF
  2181.  
  2182. ;
  2183. ; pascal ComponentResult DataHGetFileSize(DataHandler dh, long *fileSize)
  2184. ;
  2185.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2186.         Macro
  2187.         _DataHGetFileSize
  2188.             move.l              #$00040012,-(sp)
  2189.             moveq               #0,D0
  2190.             dc.w                $A82A
  2191.         EndM
  2192.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2193.         IMPORT_CFM_FUNCTION DataHGetFileSize
  2194.     ENDIF
  2195.  
  2196. ;
  2197. ; pascal ComponentResult DataHCanUseDataRef(DataHandler dh, Handle dataRef, long *useFlags)
  2198. ;
  2199.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2200.         Macro
  2201.         _DataHCanUseDataRef
  2202.             move.l              #$00080013,-(sp)
  2203.             moveq               #0,D0
  2204.             dc.w                $A82A
  2205.         EndM
  2206.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2207.         IMPORT_CFM_FUNCTION DataHCanUseDataRef
  2208.     ENDIF
  2209.  
  2210. ;
  2211. ; pascal ComponentResult DataHGetVolumeList(DataHandler dh, DataHVolumeList *volumeList)
  2212. ;
  2213.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2214.         Macro
  2215.         _DataHGetVolumeList
  2216.             move.l              #$00040014,-(sp)
  2217.             moveq               #0,D0
  2218.             dc.w                $A82A
  2219.         EndM
  2220.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2221.         IMPORT_CFM_FUNCTION DataHGetVolumeList
  2222.     ENDIF
  2223.  
  2224. ;
  2225. ; pascal ComponentResult DataHWrite(DataHandler dh, Ptr data, long offset, long size, DataHCompletionUPP completion, long refCon)
  2226. ;
  2227.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2228.         Macro
  2229.         _DataHWrite
  2230.             move.l              #$00140015,-(sp)
  2231.             moveq               #0,D0
  2232.             dc.w                $A82A
  2233.         EndM
  2234.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2235.         IMPORT_CFM_FUNCTION DataHWrite
  2236.     ENDIF
  2237.  
  2238. ;
  2239. ; pascal ComponentResult DataHPreextend(DataHandler dh, unsigned long maxToAdd, unsigned long *spaceAdded)
  2240. ;
  2241.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2242.         Macro
  2243.         _DataHPreextend
  2244.             move.l              #$00080016,-(sp)
  2245.             moveq               #0,D0
  2246.             dc.w                $A82A
  2247.         EndM
  2248.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2249.         IMPORT_CFM_FUNCTION DataHPreextend
  2250.     ENDIF
  2251.  
  2252. ;
  2253. ; pascal ComponentResult DataHSetFileSize(DataHandler dh, long fileSize)
  2254. ;
  2255.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2256.         Macro
  2257.         _DataHSetFileSize
  2258.             move.l              #$00040017,-(sp)
  2259.             moveq               #0,D0
  2260.             dc.w                $A82A
  2261.         EndM
  2262.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2263.         IMPORT_CFM_FUNCTION DataHSetFileSize
  2264.     ENDIF
  2265.  
  2266. ;
  2267. ; pascal ComponentResult DataHGetFreeSpace(DataHandler dh, unsigned long *freeSize)
  2268. ;
  2269.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2270.         Macro
  2271.         _DataHGetFreeSpace
  2272.             move.l              #$00040018,-(sp)
  2273.             moveq               #0,D0
  2274.             dc.w                $A82A
  2275.         EndM
  2276.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2277.         IMPORT_CFM_FUNCTION DataHGetFreeSpace
  2278.     ENDIF
  2279.  
  2280. ;
  2281. ; pascal ComponentResult DataHCreateFile(DataHandler dh, OSType creator, Boolean deleteExisting)
  2282. ;
  2283.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2284.         Macro
  2285.         _DataHCreateFile
  2286.             move.l              #$00060019,-(sp)
  2287.             moveq               #0,D0
  2288.             dc.w                $A82A
  2289.         EndM
  2290.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2291.         IMPORT_CFM_FUNCTION DataHCreateFile
  2292.     ENDIF
  2293.  
  2294. ;
  2295. ; pascal ComponentResult DataHGetPreferredBlockSize(DataHandler dh, long *blockSize)
  2296. ;
  2297.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2298.         Macro
  2299.         _DataHGetPreferredBlockSize
  2300.             move.l              #$0004001A,-(sp)
  2301.             moveq               #0,D0
  2302.             dc.w                $A82A
  2303.         EndM
  2304.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2305.         IMPORT_CFM_FUNCTION DataHGetPreferredBlockSize
  2306.     ENDIF
  2307.  
  2308. ;
  2309. ; pascal ComponentResult DataHGetDeviceIndex(DataHandler dh, long *deviceIndex)
  2310. ;
  2311.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2312.         Macro
  2313.         _DataHGetDeviceIndex
  2314.             move.l              #$0004001B,-(sp)
  2315.             moveq               #0,D0
  2316.             dc.w                $A82A
  2317.         EndM
  2318.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2319.         IMPORT_CFM_FUNCTION DataHGetDeviceIndex
  2320.     ENDIF
  2321.  
  2322. ;
  2323. ; pascal ComponentResult DataHIsStreamingDataHandler(DataHandler dh, Boolean *yes)
  2324. ;
  2325.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2326.         Macro
  2327.         _DataHIsStreamingDataHandler
  2328.             move.l              #$0004001C,-(sp)
  2329.             moveq               #0,D0
  2330.             dc.w                $A82A
  2331.         EndM
  2332.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2333.         IMPORT_CFM_FUNCTION DataHIsStreamingDataHandler
  2334.     ENDIF
  2335.  
  2336. ;
  2337. ; pascal ComponentResult DataHGetDataInBuffer(DataHandler dh, long startOffset, long *size)
  2338. ;
  2339.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2340.         Macro
  2341.         _DataHGetDataInBuffer
  2342.             move.l              #$0008001D,-(sp)
  2343.             moveq               #0,D0
  2344.             dc.w                $A82A
  2345.         EndM
  2346.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2347.         IMPORT_CFM_FUNCTION DataHGetDataInBuffer
  2348.     ENDIF
  2349.  
  2350. ;
  2351. ; pascal ComponentResult DataHGetScheduleAheadTime(DataHandler dh, long *millisecs)
  2352. ;
  2353.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2354.         Macro
  2355.         _DataHGetScheduleAheadTime
  2356.             move.l              #$0004001E,-(sp)
  2357.             moveq               #0,D0
  2358.             dc.w                $A82A
  2359.         EndM
  2360.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2361.         IMPORT_CFM_FUNCTION DataHGetScheduleAheadTime
  2362.     ENDIF
  2363.  
  2364. ;
  2365. ; pascal ComponentResult DataHSetCacheSizeLimit(DataHandler dh, Size cacheSizeLimit)
  2366. ;
  2367.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2368.         Macro
  2369.         _DataHSetCacheSizeLimit
  2370.             move.l              #$0004001F,-(sp)
  2371.             moveq               #0,D0
  2372.             dc.w                $A82A
  2373.         EndM
  2374.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2375.         IMPORT_CFM_FUNCTION DataHSetCacheSizeLimit
  2376.     ENDIF
  2377.  
  2378. ;
  2379. ; pascal ComponentResult DataHGetCacheSizeLimit(DataHandler dh, Size *cacheSizeLimit)
  2380. ;
  2381.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2382.         Macro
  2383.         _DataHGetCacheSizeLimit
  2384.             move.l              #$00040020,-(sp)
  2385.             moveq               #0,D0
  2386.             dc.w                $A82A
  2387.         EndM
  2388.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2389.         IMPORT_CFM_FUNCTION DataHGetCacheSizeLimit
  2390.     ENDIF
  2391.  
  2392. ;
  2393. ; pascal ComponentResult DataHGetMovie(DataHandler dh, Movie *theMovie, short *id)
  2394. ;
  2395.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2396.         Macro
  2397.         _DataHGetMovie
  2398.             move.l              #$00080021,-(sp)
  2399.             moveq               #0,D0
  2400.             dc.w                $A82A
  2401.         EndM
  2402.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2403.         IMPORT_CFM_FUNCTION DataHGetMovie
  2404.     ENDIF
  2405.  
  2406. ;
  2407. ; pascal ComponentResult DataHAddMovie(DataHandler dh, Movie theMovie, short *id)
  2408. ;
  2409.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2410.         Macro
  2411.         _DataHAddMovie
  2412.             move.l              #$00080022,-(sp)
  2413.             moveq               #0,D0
  2414.             dc.w                $A82A
  2415.         EndM
  2416.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2417.         IMPORT_CFM_FUNCTION DataHAddMovie
  2418.     ENDIF
  2419.  
  2420. ;
  2421. ; pascal ComponentResult DataHUpdateMovie(DataHandler dh, Movie theMovie, short id)
  2422. ;
  2423.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2424.         Macro
  2425.         _DataHUpdateMovie
  2426.             move.l              #$00060023,-(sp)
  2427.             moveq               #0,D0
  2428.             dc.w                $A82A
  2429.         EndM
  2430.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2431.         IMPORT_CFM_FUNCTION DataHUpdateMovie
  2432.     ENDIF
  2433.  
  2434. ;
  2435. ; pascal ComponentResult DataHDoesBuffer(DataHandler dh, Boolean *buffersReads, Boolean *buffersWrites)
  2436. ;
  2437.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2438.         Macro
  2439.         _DataHDoesBuffer
  2440.             move.l              #$00080024,-(sp)
  2441.             moveq               #0,D0
  2442.             dc.w                $A82A
  2443.         EndM
  2444.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2445.         IMPORT_CFM_FUNCTION DataHDoesBuffer
  2446.     ENDIF
  2447.  
  2448. ;
  2449. ; pascal ComponentResult DataHGetFileName(DataHandler dh, Str255 str)
  2450. ;
  2451.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2452.         Macro
  2453.         _DataHGetFileName
  2454.             move.l              #$00040025,-(sp)
  2455.             moveq               #0,D0
  2456.             dc.w                $A82A
  2457.         EndM
  2458.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2459.         IMPORT_CFM_FUNCTION DataHGetFileName
  2460.     ENDIF
  2461.  
  2462. ;
  2463. ; pascal ComponentResult DataHGetAvailableFileSize(DataHandler dh, long *fileSize)
  2464. ;
  2465.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2466.         Macro
  2467.         _DataHGetAvailableFileSize
  2468.             move.l              #$00040026,-(sp)
  2469.             moveq               #0,D0
  2470.             dc.w                $A82A
  2471.         EndM
  2472.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2473.         IMPORT_CFM_FUNCTION DataHGetAvailableFileSize
  2474.     ENDIF
  2475.  
  2476. ;
  2477. ; pascal ComponentResult DataHGetMacOSFileType(DataHandler dh, OSType *fileType)
  2478. ;
  2479.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2480.         Macro
  2481.         _DataHGetMacOSFileType
  2482.             move.l              #$00040027,-(sp)
  2483.             moveq               #0,D0
  2484.             dc.w                $A82A
  2485.         EndM
  2486.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2487.         IMPORT_CFM_FUNCTION DataHGetMacOSFileType
  2488.     ENDIF
  2489.  
  2490. ;
  2491. ; pascal ComponentResult DataHGetMIMEType(DataHandler dh, Str255 mimeType)
  2492. ;
  2493.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2494.         Macro
  2495.         _DataHGetMIMEType
  2496.             move.l              #$00040028,-(sp)
  2497.             moveq               #0,D0
  2498.             dc.w                $A82A
  2499.         EndM
  2500.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2501.         IMPORT_CFM_FUNCTION DataHGetMIMEType
  2502.     ENDIF
  2503.  
  2504. ;
  2505. ; pascal ComponentResult DataHSetDataRefWithAnchor(DataHandler dh, Handle anchorDataRef, Handle dataRef)
  2506. ;
  2507.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2508.         Macro
  2509.         _DataHSetDataRefWithAnchor
  2510.             move.l              #$00080029,-(sp)
  2511.             moveq               #0,D0
  2512.             dc.w                $A82A
  2513.         EndM
  2514.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2515.         IMPORT_CFM_FUNCTION DataHSetDataRefWithAnchor
  2516.     ENDIF
  2517.  
  2518. ;
  2519. ; pascal ComponentResult DataHGetDataRefWithAnchor(DataHandler dh, Handle anchorDataRef, Handle *dataRef)
  2520. ;
  2521.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2522.         Macro
  2523.         _DataHGetDataRefWithAnchor
  2524.             move.l              #$0008002A,-(sp)
  2525.             moveq               #0,D0
  2526.             dc.w                $A82A
  2527.         EndM
  2528.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2529.         IMPORT_CFM_FUNCTION DataHGetDataRefWithAnchor
  2530.     ENDIF
  2531.  
  2532. ;
  2533. ; pascal ComponentResult DataHSetMacOSFileType(DataHandler dh, OSType fileType)
  2534. ;
  2535.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2536.         Macro
  2537.         _DataHSetMacOSFileType
  2538.             move.l              #$0004002B,-(sp)
  2539.             moveq               #0,D0
  2540.             dc.w                $A82A
  2541.         EndM
  2542.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2543.         IMPORT_CFM_FUNCTION DataHSetMacOSFileType
  2544.     ENDIF
  2545.  
  2546.  
  2547. ;
  2548. ; pascal ComponentResult DataHPlaybackHints(DataHandler dh, long flags, unsigned long minFileOffset, unsigned long maxFileOffset, long bytesPerSecond)
  2549. ;
  2550.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2551.         Macro
  2552.         _DataHPlaybackHints
  2553.             move.l              #$00100103,-(sp)
  2554.             moveq               #0,D0
  2555.             dc.w                $A82A
  2556.         EndM
  2557.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2558.         IMPORT_CFM_FUNCTION DataHPlaybackHints
  2559.     ENDIF
  2560.  
  2561.  
  2562.  
  2563.  
  2564. ;  Standard type for video digitizers 
  2565.  
  2566. videoDigitizerComponentType        EQU        'vdig'
  2567. vdigInterfaceRev                EQU        2
  2568. ;  Input Format Standards 
  2569.  
  2570. ntscIn                            EQU        0                    ; current input format 
  2571. currentIn                        EQU        0                    ; ntsc input format 
  2572. palIn                            EQU        1                    ; pal input format 
  2573. secamIn                            EQU        2                    ; secam input format 
  2574. ntscReallyIn                    EQU        3                    ; ntsc input format 
  2575. ;  Input Formats 
  2576.  
  2577. compositeIn                        EQU        0                    ; input is composite format 
  2578. sVideoIn                        EQU        1                    ; input is sVideo format 
  2579. rgbComponentIn                    EQU        2                    ; input is rgb component format 
  2580. rgbComponentSyncIn                EQU        3                    ; input is rgb component format (sync on green?)
  2581. yuvComponentIn                    EQU        4                    ; input is yuv component format 
  2582. yuvComponentSyncIn                EQU        5                    ; input is yuv component format (sync on green?) 
  2583. tvTunerIn                        EQU        6
  2584. sdiIn                            EQU        7
  2585.  
  2586. ;  Video Digitizer PlayThru States 
  2587.  
  2588. vdPlayThruOff                    EQU        0
  2589. vdPlayThruOn                    EQU        1
  2590. ;  Input Color Space Modes 
  2591.  
  2592. vdDigitizerBW                    EQU        0                    ; black and white 
  2593. vdDigitizerRGB                    EQU        1                    ; rgb color 
  2594. ;  Phase Lock Loop Modes 
  2595.  
  2596. vdBroadcastMode                    EQU        0                    ; Broadcast / Laser Disk video mode 
  2597. vdVTRMode                        EQU        1                    ; VCR / Magnetic media mode 
  2598. ;  Field Select Options 
  2599.  
  2600. vdUseAnyField                    EQU        0                    ; Digitizers choice on field use 
  2601. vdUseOddField                    EQU        1                    ; Use odd field for half size vert and smaller 
  2602. vdUseEvenField                    EQU        2                    ; Use even field for half size vert and smaller 
  2603. ;  vdig types 
  2604.  
  2605. vdTypeBasic                        EQU        0                    ; basic, no clipping 
  2606. vdTypeAlpha                        EQU        1                    ; supports clipping with alpha channel 
  2607. vdTypeMask                        EQU        2                    ; supports clipping with mask plane 
  2608. vdTypeKey                        EQU        3                    ; supports clipping with key color(s) 
  2609.  
  2610.  
  2611. ;  Digitizer Input Capability/Current Flags    
  2612.  
  2613. digiInDoesNTSC                    EQU        $00000001            ; digitizer supports NTSC input format 
  2614. digiInDoesPAL                    EQU        $00000002            ; digitizer supports PAL input format 
  2615. digiInDoesSECAM                    EQU        $00000004            ; digitizer supports SECAM input format 
  2616. digiInDoesGenLock                EQU        $00000080            ; digitizer does genlock 
  2617. digiInDoesComposite                EQU        $00000100            ; digitizer supports composite input type 
  2618. digiInDoesSVideo                EQU        $00000200            ; digitizer supports S-Video input type 
  2619. digiInDoesComponent                EQU        $00000400            ; digitizer supports component = rgb, input type 
  2620. digiInVTR_Broadcast                EQU        $00000800            ; digitizer can differentiate between the two 
  2621. digiInDoesColor                    EQU        $00001000            ; digitizer supports color 
  2622. digiInDoesBW                    EQU        $00002000            ; digitizer supports black & white 
  2623.                                                             ; Digitizer Input Current Flags = these are valid only during active operating conditions,    
  2624. digiInSignalLock                EQU        $80000000            ; digitizer detects input signal is locked, this bit = horiz lock || vertical lock 
  2625.  
  2626. ;  Digitizer Output Capability/Current Flags 
  2627.  
  2628. digiOutDoes1                    EQU        $00000001            ; digitizer supports 1 bit pixels 
  2629. digiOutDoes2                    EQU        $00000002            ; digitizer supports 2 bit pixels 
  2630. digiOutDoes4                    EQU        $00000004            ; digitizer supports 4 bit pixels 
  2631. digiOutDoes8                    EQU        $00000008            ; digitizer supports 8 bit pixels 
  2632. digiOutDoes16                    EQU        $00000010            ; digitizer supports 16 bit pixels 
  2633. digiOutDoes32                    EQU        $00000020            ; digitizer supports 32 bit pixels 
  2634. digiOutDoesDither                EQU        $00000040            ; digitizer dithers in indexed modes 
  2635. digiOutDoesStretch                EQU        $00000080            ; digitizer can arbitrarily stretch 
  2636. digiOutDoesShrink                EQU        $00000100            ; digitizer can arbitrarily shrink 
  2637. digiOutDoesMask                    EQU        $00000200            ; digitizer can mask to clipping regions 
  2638. digiOutDoesDouble                EQU        $00000800            ; digitizer can stretch to exactly double size 
  2639. digiOutDoesQuad                    EQU        $00001000            ; digitizer can stretch exactly quadruple size 
  2640. digiOutDoesQuarter                EQU        $00002000            ; digitizer can shrink to exactly quarter size 
  2641. digiOutDoesSixteenth            EQU        $00004000            ; digitizer can shrink to exactly sixteenth size 
  2642. digiOutDoesRotate                EQU        $00008000            ; digitizer supports rotate transformations 
  2643. digiOutDoesHorizFlip            EQU        $00010000            ; digitizer supports horizontal flips Sx < 0 
  2644. digiOutDoesVertFlip                EQU        $00020000            ; digitizer supports vertical flips Sy < 0 
  2645. digiOutDoesSkew                    EQU        $00040000            ; digitizer supports skew = shear,twist, 
  2646. digiOutDoesBlend                EQU        $00080000
  2647. digiOutDoesWarp                    EQU        $00100000
  2648. digiOutDoesHW_DMA                EQU        $00200000            ; digitizer not constrained to local device 
  2649. digiOutDoesHWPlayThru            EQU        $00400000            ; digitizer doesn't need time to play thru 
  2650. digiOutDoesILUT                    EQU        $00800000            ; digitizer does inverse LUT for index modes 
  2651. digiOutDoesKeyColor                EQU        $01000000            ; digitizer does key color functions too 
  2652. digiOutDoesAsyncGrabs            EQU        $02000000            ; digitizer supports async grabs 
  2653. digiOutDoesUnreadableScreenBits    EQU        $04000000            ; playthru doesn't generate readable bits on screen
  2654. digiOutDoesCompress                EQU        $08000000            ; supports alternate output data types 
  2655. digiOutDoesCompressOnly            EQU        $10000000            ; can't provide raw frames anywhere 
  2656. digiOutDoesPlayThruDuringCompress EQU    $20000000            ; digi can do playthru while providing compressed data 
  2657. digiOutDoesCompressPartiallyVisible EQU    $40000000            ; digi doesn't need all bits visible on screen to do hardware compress 
  2658. ;  Types 
  2659. ; typedef ComponentInstance             VideoDigitizerComponent
  2660.  
  2661. ; typedef ComponentResult                 VideoDigitizerError
  2662.  
  2663. DigitizerInfo            RECORD 0
  2664. vdigType                 ds.w    1                ; offset: $0 (0)
  2665. inputCapabilityFlags     ds.l    1                ; offset: $2 (2)
  2666. outputCapabilityFlags     ds.l    1                ; offset: $6 (6)
  2667. inputCurrentFlags         ds.l    1                ; offset: $A (10)
  2668. outputCurrentFlags         ds.l    1                ; offset: $E (14)
  2669. slot                     ds.w    1                ; offset: $12 (18)        ;  temporary for connection purposes 
  2670. gdh                         ds.l    1                ; offset: $14 (20)        ;  temporary for digitizers that have preferred screen 
  2671. maskgdh                     ds.l    1                ; offset: $18 (24)        ;  temporary for digitizers that have mask planes 
  2672. minDestHeight             ds.w    1                ; offset: $1C (28)        ;  Smallest resizable height 
  2673. minDestWidth             ds.w    1                ; offset: $1E (30)        ;  Smallest resizable width 
  2674. maxDestHeight             ds.w    1                ; offset: $20 (32)        ;  Largest resizable height 
  2675. maxDestWidth             ds.w    1                ; offset: $22 (34)        ;  Largest resizable height 
  2676. blendLevels                 ds.w    1                ; offset: $24 (36)        ;  Number of blend levels supported (2 if 1 bit mask) 
  2677. reserved                 ds.l    1                ; offset: $26 (38)        ;  reserved 
  2678. sizeof                     EQU *                    ; size:   $2A (42)
  2679.                         ENDR
  2680. VdigType                RECORD 0
  2681. digType                     ds.l    1                ; offset: $0 (0)
  2682. reserved                 ds.l    1                ; offset: $4 (4)
  2683. sizeof                     EQU *                    ; size:   $8 (8)
  2684.                         ENDR
  2685. VdigTypeList            RECORD 0
  2686. count                     ds.w    1                ; offset: $0 (0)
  2687. list                     ds        VdigType        ; offset: $2 (2) <-- really an array of length one
  2688. sizeof                     EQU *                    ; size:   $A (10)
  2689.                         ENDR
  2690. VdigBufferRec            RECORD 0
  2691. dest                     ds.l    1                ; offset: $0 (0)
  2692. location                 ds        Point            ; offset: $4 (4)
  2693. reserved                 ds.l    1                ; offset: $8 (8)
  2694. sizeof                     EQU *                    ; size:   $C (12)
  2695.                         ENDR
  2696. VdigBufferRecList        RECORD 0
  2697. count                     ds.w    1                ; offset: $0 (0)
  2698. matrix                     ds.l    1                ; offset: $2 (2)
  2699. mask                     ds.l    1                ; offset: $6 (6)
  2700. list                     ds        VdigBufferRec    ; offset: $A (10) <-- really an array of length one
  2701. sizeof                     EQU *                    ; size:   $16 (22)
  2702.                         ENDR
  2703. ; typedef struct VdigBufferRecList *    VdigBufferRecListPtr
  2704.  
  2705. ; typedef VdigBufferRecListPtr *        VdigBufferRecListHandle
  2706.  
  2707. VDCompressionList        RECORD 0
  2708. codec                     ds.l    1                ; offset: $0 (0)
  2709. cType                     ds.l    1                ; offset: $4 (4)
  2710. typeName                 ds        Str63            ; offset: $8 (8)
  2711. name                     ds        Str63            ; offset: $48 (72)
  2712. formatFlags                 ds.l    1                ; offset: $88 (136)
  2713. compressFlags             ds.l    1                ; offset: $8C (140)
  2714. reserved                 ds.l    1                ; offset: $90 (144)
  2715. sizeof                     EQU *                    ; size:   $94 (148)
  2716.                         ENDR
  2717. ; typedef struct VDCompressionList *    VDCompressionListPtr
  2718.  
  2719. ; typedef VDCompressionListPtr *        VDCompressionListHandle
  2720.  
  2721.  
  2722. dmaDepth1                        EQU        1
  2723. dmaDepth2                        EQU        2
  2724. dmaDepth4                        EQU        4
  2725. dmaDepth8                        EQU        8
  2726. dmaDepth16                        EQU        16
  2727. dmaDepth32                        EQU        32
  2728. dmaDepth2Gray                    EQU        64
  2729. dmaDepth4Gray                    EQU        128
  2730. dmaDepth8Gray                    EQU        256
  2731.  
  2732. kVDIGControlledFrameRate        EQU        -1
  2733.  
  2734. ;
  2735. ; pascal VideoDigitizerError VDGetMaxSrcRect(VideoDigitizerComponent ci, short inputStd, Rect *maxSrcRect)
  2736. ;
  2737.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2738.         Macro
  2739.         _VDGetMaxSrcRect
  2740.             move.l              #$00060001,-(sp)
  2741.             moveq               #0,D0
  2742.             dc.w                $A82A
  2743.         EndM
  2744.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2745.         IMPORT_CFM_FUNCTION VDGetMaxSrcRect
  2746.     ENDIF
  2747.  
  2748. ;
  2749. ; pascal VideoDigitizerError VDGetActiveSrcRect(VideoDigitizerComponent ci, short inputStd, Rect *activeSrcRect)
  2750. ;
  2751.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2752.         Macro
  2753.         _VDGetActiveSrcRect
  2754.             move.l              #$00060002,-(sp)
  2755.             moveq               #0,D0
  2756.             dc.w                $A82A
  2757.         EndM
  2758.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2759.         IMPORT_CFM_FUNCTION VDGetActiveSrcRect
  2760.     ENDIF
  2761.  
  2762. ;
  2763. ; pascal VideoDigitizerError VDSetDigitizerRect(VideoDigitizerComponent ci, Rect *digitizerRect)
  2764. ;
  2765.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2766.         Macro
  2767.         _VDSetDigitizerRect
  2768.             move.l              #$00040003,-(sp)
  2769.             moveq               #0,D0
  2770.             dc.w                $A82A
  2771.         EndM
  2772.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2773.         IMPORT_CFM_FUNCTION VDSetDigitizerRect
  2774.     ENDIF
  2775.  
  2776. ;
  2777. ; pascal VideoDigitizerError VDGetDigitizerRect(VideoDigitizerComponent ci, Rect *digitizerRect)
  2778. ;
  2779.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2780.         Macro
  2781.         _VDGetDigitizerRect
  2782.             move.l              #$00040004,-(sp)
  2783.             moveq               #0,D0
  2784.             dc.w                $A82A
  2785.         EndM
  2786.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2787.         IMPORT_CFM_FUNCTION VDGetDigitizerRect
  2788.     ENDIF
  2789.  
  2790. ;
  2791. ; pascal VideoDigitizerError VDGetVBlankRect(VideoDigitizerComponent ci, short inputStd, Rect *vBlankRect)
  2792. ;
  2793.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2794.         Macro
  2795.         _VDGetVBlankRect
  2796.             move.l              #$00060005,-(sp)
  2797.             moveq               #0,D0
  2798.             dc.w                $A82A
  2799.         EndM
  2800.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2801.         IMPORT_CFM_FUNCTION VDGetVBlankRect
  2802.     ENDIF
  2803.  
  2804. ;
  2805. ; pascal VideoDigitizerError VDGetMaskPixMap(VideoDigitizerComponent ci, PixMapHandle maskPixMap)
  2806. ;
  2807.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2808.         Macro
  2809.         _VDGetMaskPixMap
  2810.             move.l              #$00040006,-(sp)
  2811.             moveq               #0,D0
  2812.             dc.w                $A82A
  2813.         EndM
  2814.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2815.         IMPORT_CFM_FUNCTION VDGetMaskPixMap
  2816.     ENDIF
  2817.  
  2818. ;
  2819. ; pascal VideoDigitizerError VDGetPlayThruDestination(VideoDigitizerComponent ci, PixMapHandle *dest, Rect *destRect, MatrixRecord *m, RgnHandle *mask)
  2820. ;
  2821.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2822.         Macro
  2823.         _VDGetPlayThruDestination
  2824.             move.l              #$00100008,-(sp)
  2825.             moveq               #0,D0
  2826.             dc.w                $A82A
  2827.         EndM
  2828.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2829.         IMPORT_CFM_FUNCTION VDGetPlayThruDestination
  2830.     ENDIF
  2831.  
  2832. ;
  2833. ; pascal VideoDigitizerError VDUseThisCLUT(VideoDigitizerComponent ci, CTabHandle colorTableHandle)
  2834. ;
  2835.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2836.         Macro
  2837.         _VDUseThisCLUT
  2838.             move.l              #$00040009,-(sp)
  2839.             moveq               #0,D0
  2840.             dc.w                $A82A
  2841.         EndM
  2842.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2843.         IMPORT_CFM_FUNCTION VDUseThisCLUT
  2844.     ENDIF
  2845.  
  2846. ;
  2847. ; pascal VideoDigitizerError VDSetInputGammaValue(VideoDigitizerComponent ci, Fixed channel1, Fixed channel2, Fixed channel3)
  2848. ;
  2849.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2850.         Macro
  2851.         _VDSetInputGammaValue
  2852.             move.l              #$000C000A,-(sp)
  2853.             moveq               #0,D0
  2854.             dc.w                $A82A
  2855.         EndM
  2856.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2857.         IMPORT_CFM_FUNCTION VDSetInputGammaValue
  2858.     ENDIF
  2859.  
  2860. ;
  2861. ; pascal VideoDigitizerError VDGetInputGammaValue(VideoDigitizerComponent ci, Fixed *channel1, Fixed *channel2, Fixed *channel3)
  2862. ;
  2863.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2864.         Macro
  2865.         _VDGetInputGammaValue
  2866.             move.l              #$000C000B,-(sp)
  2867.             moveq               #0,D0
  2868.             dc.w                $A82A
  2869.         EndM
  2870.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2871.         IMPORT_CFM_FUNCTION VDGetInputGammaValue
  2872.     ENDIF
  2873.  
  2874. ;
  2875. ; pascal VideoDigitizerError VDSetBrightness(VideoDigitizerComponent ci, unsigned short *brightness)
  2876. ;
  2877.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2878.         Macro
  2879.         _VDSetBrightness
  2880.             move.l              #$0004000C,-(sp)
  2881.             moveq               #0,D0
  2882.             dc.w                $A82A
  2883.         EndM
  2884.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2885.         IMPORT_CFM_FUNCTION VDSetBrightness
  2886.     ENDIF
  2887.  
  2888. ;
  2889. ; pascal VideoDigitizerError VDGetBrightness(VideoDigitizerComponent ci, unsigned short *brightness)
  2890. ;
  2891.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2892.         Macro
  2893.         _VDGetBrightness
  2894.             move.l              #$0004000D,-(sp)
  2895.             moveq               #0,D0
  2896.             dc.w                $A82A
  2897.         EndM
  2898.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2899.         IMPORT_CFM_FUNCTION VDGetBrightness
  2900.     ENDIF
  2901.  
  2902. ;
  2903. ; pascal VideoDigitizerError VDSetContrast(VideoDigitizerComponent ci, unsigned short *contrast)
  2904. ;
  2905.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2906.         Macro
  2907.         _VDSetContrast
  2908.             move.l              #$0004000E,-(sp)
  2909.             moveq               #0,D0
  2910.             dc.w                $A82A
  2911.         EndM
  2912.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2913.         IMPORT_CFM_FUNCTION VDSetContrast
  2914.     ENDIF
  2915.  
  2916. ;
  2917. ; pascal VideoDigitizerError VDSetHue(VideoDigitizerComponent ci, unsigned short *hue)
  2918. ;
  2919.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2920.         Macro
  2921.         _VDSetHue
  2922.             move.l              #$0004000F,-(sp)
  2923.             moveq               #0,D0
  2924.             dc.w                $A82A
  2925.         EndM
  2926.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2927.         IMPORT_CFM_FUNCTION VDSetHue
  2928.     ENDIF
  2929.  
  2930. ;
  2931. ; pascal VideoDigitizerError VDSetSharpness(VideoDigitizerComponent ci, unsigned short *sharpness)
  2932. ;
  2933.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2934.         Macro
  2935.         _VDSetSharpness
  2936.             move.l              #$00040010,-(sp)
  2937.             moveq               #0,D0
  2938.             dc.w                $A82A
  2939.         EndM
  2940.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2941.         IMPORT_CFM_FUNCTION VDSetSharpness
  2942.     ENDIF
  2943.  
  2944. ;
  2945. ; pascal VideoDigitizerError VDSetSaturation(VideoDigitizerComponent ci, unsigned short *saturation)
  2946. ;
  2947.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2948.         Macro
  2949.         _VDSetSaturation
  2950.             move.l              #$00040011,-(sp)
  2951.             moveq               #0,D0
  2952.             dc.w                $A82A
  2953.         EndM
  2954.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2955.         IMPORT_CFM_FUNCTION VDSetSaturation
  2956.     ENDIF
  2957.  
  2958. ;
  2959. ; pascal VideoDigitizerError VDGetContrast(VideoDigitizerComponent ci, unsigned short *contrast)
  2960. ;
  2961.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2962.         Macro
  2963.         _VDGetContrast
  2964.             move.l              #$00040012,-(sp)
  2965.             moveq               #0,D0
  2966.             dc.w                $A82A
  2967.         EndM
  2968.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2969.         IMPORT_CFM_FUNCTION VDGetContrast
  2970.     ENDIF
  2971.  
  2972. ;
  2973. ; pascal VideoDigitizerError VDGetHue(VideoDigitizerComponent ci, unsigned short *hue)
  2974. ;
  2975.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2976.         Macro
  2977.         _VDGetHue
  2978.             move.l              #$00040013,-(sp)
  2979.             moveq               #0,D0
  2980.             dc.w                $A82A
  2981.         EndM
  2982.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2983.         IMPORT_CFM_FUNCTION VDGetHue
  2984.     ENDIF
  2985.  
  2986. ;
  2987. ; pascal VideoDigitizerError VDGetSharpness(VideoDigitizerComponent ci, unsigned short *sharpness)
  2988. ;
  2989.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2990.         Macro
  2991.         _VDGetSharpness
  2992.             move.l              #$00040014,-(sp)
  2993.             moveq               #0,D0
  2994.             dc.w                $A82A
  2995.         EndM
  2996.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2997.         IMPORT_CFM_FUNCTION VDGetSharpness
  2998.     ENDIF
  2999.  
  3000. ;
  3001. ; pascal VideoDigitizerError VDGetSaturation(VideoDigitizerComponent ci, unsigned short *saturation)
  3002. ;
  3003.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3004.         Macro
  3005.         _VDGetSaturation
  3006.             move.l              #$00040015,-(sp)
  3007.             moveq               #0,D0
  3008.             dc.w                $A82A
  3009.         EndM
  3010.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3011.         IMPORT_CFM_FUNCTION VDGetSaturation
  3012.     ENDIF
  3013.  
  3014. ;
  3015. ; pascal VideoDigitizerError VDGrabOneFrame(VideoDigitizerComponent ci)
  3016. ;
  3017.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3018.         Macro
  3019.         _VDGrabOneFrame
  3020.             move.l              #$00000016,-(sp)
  3021.             moveq               #0,D0
  3022.             dc.w                $A82A
  3023.         EndM
  3024.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3025.         IMPORT_CFM_FUNCTION VDGrabOneFrame
  3026.     ENDIF
  3027.  
  3028. ;
  3029. ; pascal VideoDigitizerError VDGetMaxAuxBuffer(VideoDigitizerComponent ci, PixMapHandle *pm, Rect *r)
  3030. ;
  3031.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3032.         Macro
  3033.         _VDGetMaxAuxBuffer
  3034.             move.l              #$00080017,-(sp)
  3035.             moveq               #0,D0
  3036.             dc.w                $A82A
  3037.         EndM
  3038.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3039.         IMPORT_CFM_FUNCTION VDGetMaxAuxBuffer
  3040.     ENDIF
  3041.  
  3042. ;
  3043. ; pascal VideoDigitizerError VDGetDigitizerInfo(VideoDigitizerComponent ci, DigitizerInfo *info)
  3044. ;
  3045.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3046.         Macro
  3047.         _VDGetDigitizerInfo
  3048.             move.l              #$00040019,-(sp)
  3049.             moveq               #0,D0
  3050.             dc.w                $A82A
  3051.         EndM
  3052.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3053.         IMPORT_CFM_FUNCTION VDGetDigitizerInfo
  3054.     ENDIF
  3055.  
  3056. ;
  3057. ; pascal VideoDigitizerError VDGetCurrentFlags(VideoDigitizerComponent ci, long *inputCurrentFlag, long *outputCurrentFlag)
  3058. ;
  3059.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3060.         Macro
  3061.         _VDGetCurrentFlags
  3062.             move.l              #$0008001A,-(sp)
  3063.             moveq               #0,D0
  3064.             dc.w                $A82A
  3065.         EndM
  3066.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3067.         IMPORT_CFM_FUNCTION VDGetCurrentFlags
  3068.     ENDIF
  3069.  
  3070. ;
  3071. ; pascal VideoDigitizerError VDSetKeyColor(VideoDigitizerComponent ci, long index)
  3072. ;
  3073.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3074.         Macro
  3075.         _VDSetKeyColor
  3076.             move.l              #$0004001B,-(sp)
  3077.             moveq               #0,D0
  3078.             dc.w                $A82A
  3079.         EndM
  3080.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3081.         IMPORT_CFM_FUNCTION VDSetKeyColor
  3082.     ENDIF
  3083.  
  3084. ;
  3085. ; pascal VideoDigitizerError VDGetKeyColor(VideoDigitizerComponent ci, long *index)
  3086. ;
  3087.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3088.         Macro
  3089.         _VDGetKeyColor
  3090.             move.l              #$0004001C,-(sp)
  3091.             moveq               #0,D0
  3092.             dc.w                $A82A
  3093.         EndM
  3094.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3095.         IMPORT_CFM_FUNCTION VDGetKeyColor
  3096.     ENDIF
  3097.  
  3098. ;
  3099. ; pascal VideoDigitizerError VDAddKeyColor(VideoDigitizerComponent ci, long *index)
  3100. ;
  3101.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3102.         Macro
  3103.         _VDAddKeyColor
  3104.             move.l              #$0004001D,-(sp)
  3105.             moveq               #0,D0
  3106.             dc.w                $A82A
  3107.         EndM
  3108.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3109.         IMPORT_CFM_FUNCTION VDAddKeyColor
  3110.     ENDIF
  3111.  
  3112. ;
  3113. ; pascal VideoDigitizerError VDGetNextKeyColor(VideoDigitizerComponent ci, long index)
  3114. ;
  3115.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3116.         Macro
  3117.         _VDGetNextKeyColor
  3118.             move.l              #$0004001E,-(sp)
  3119.             moveq               #0,D0
  3120.             dc.w                $A82A
  3121.         EndM
  3122.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3123.         IMPORT_CFM_FUNCTION VDGetNextKeyColor
  3124.     ENDIF
  3125.  
  3126. ;
  3127. ; pascal VideoDigitizerError VDSetKeyColorRange(VideoDigitizerComponent ci, RGBColor *minRGB, RGBColor *maxRGB)
  3128. ;
  3129.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3130.         Macro
  3131.         _VDSetKeyColorRange
  3132.             move.l              #$0008001F,-(sp)
  3133.             moveq               #0,D0
  3134.             dc.w                $A82A
  3135.         EndM
  3136.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3137.         IMPORT_CFM_FUNCTION VDSetKeyColorRange
  3138.     ENDIF
  3139.  
  3140. ;
  3141. ; pascal VideoDigitizerError VDGetKeyColorRange(VideoDigitizerComponent ci, RGBColor *minRGB, RGBColor *maxRGB)
  3142. ;
  3143.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3144.         Macro
  3145.         _VDGetKeyColorRange
  3146.             move.l              #$00080020,-(sp)
  3147.             moveq               #0,D0
  3148.             dc.w                $A82A
  3149.         EndM
  3150.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3151.         IMPORT_CFM_FUNCTION VDGetKeyColorRange
  3152.     ENDIF
  3153.  
  3154. ;
  3155. ; pascal VideoDigitizerError VDSetDigitizerUserInterrupt(VideoDigitizerComponent ci, long flags, VdigIntUPP userInterruptProc, long refcon)
  3156. ;
  3157.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3158.         Macro
  3159.         _VDSetDigitizerUserInterrupt
  3160.             move.l              #$000C0021,-(sp)
  3161.             moveq               #0,D0
  3162.             dc.w                $A82A
  3163.         EndM
  3164.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3165.         IMPORT_CFM_FUNCTION VDSetDigitizerUserInterrupt
  3166.     ENDIF
  3167.  
  3168. ;
  3169. ; pascal VideoDigitizerError VDSetInputColorSpaceMode(VideoDigitizerComponent ci, short colorSpaceMode)
  3170. ;
  3171.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3172.         Macro
  3173.         _VDSetInputColorSpaceMode
  3174.             move.l              #$00020022,-(sp)
  3175.             moveq               #0,D0
  3176.             dc.w                $A82A
  3177.         EndM
  3178.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3179.         IMPORT_CFM_FUNCTION VDSetInputColorSpaceMode
  3180.     ENDIF
  3181.  
  3182. ;
  3183. ; pascal VideoDigitizerError VDGetInputColorSpaceMode(VideoDigitizerComponent ci, short *colorSpaceMode)
  3184. ;
  3185.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3186.         Macro
  3187.         _VDGetInputColorSpaceMode
  3188.             move.l              #$00040023,-(sp)
  3189.             moveq               #0,D0
  3190.             dc.w                $A82A
  3191.         EndM
  3192.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3193.         IMPORT_CFM_FUNCTION VDGetInputColorSpaceMode
  3194.     ENDIF
  3195.  
  3196. ;
  3197. ; pascal VideoDigitizerError VDSetClipState(VideoDigitizerComponent ci, short clipEnable)
  3198. ;
  3199.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3200.         Macro
  3201.         _VDSetClipState
  3202.             move.l              #$00020024,-(sp)
  3203.             moveq               #0,D0
  3204.             dc.w                $A82A
  3205.         EndM
  3206.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3207.         IMPORT_CFM_FUNCTION VDSetClipState
  3208.     ENDIF
  3209.  
  3210. ;
  3211. ; pascal VideoDigitizerError VDGetClipState(VideoDigitizerComponent ci, short *clipEnable)
  3212. ;
  3213.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3214.         Macro
  3215.         _VDGetClipState
  3216.             move.l              #$00040025,-(sp)
  3217.             moveq               #0,D0
  3218.             dc.w                $A82A
  3219.         EndM
  3220.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3221.         IMPORT_CFM_FUNCTION VDGetClipState
  3222.     ENDIF
  3223.  
  3224. ;
  3225. ; pascal VideoDigitizerError VDSetClipRgn(VideoDigitizerComponent ci, RgnHandle clipRegion)
  3226. ;
  3227.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3228.         Macro
  3229.         _VDSetClipRgn
  3230.             move.l              #$00040026,-(sp)
  3231.             moveq               #0,D0
  3232.             dc.w                $A82A
  3233.         EndM
  3234.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3235.         IMPORT_CFM_FUNCTION VDSetClipRgn
  3236.     ENDIF
  3237.  
  3238. ;
  3239. ; pascal VideoDigitizerError VDClearClipRgn(VideoDigitizerComponent ci, RgnHandle clipRegion)
  3240. ;
  3241.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3242.         Macro
  3243.         _VDClearClipRgn
  3244.             move.l              #$00040027,-(sp)
  3245.             moveq               #0,D0
  3246.             dc.w                $A82A
  3247.         EndM
  3248.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3249.         IMPORT_CFM_FUNCTION VDClearClipRgn
  3250.     ENDIF
  3251.  
  3252. ;
  3253. ; pascal VideoDigitizerError VDGetCLUTInUse(VideoDigitizerComponent ci, CTabHandle *colorTableHandle)
  3254. ;
  3255.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3256.         Macro
  3257.         _VDGetCLUTInUse
  3258.             move.l              #$00040028,-(sp)
  3259.             moveq               #0,D0
  3260.             dc.w                $A82A
  3261.         EndM
  3262.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3263.         IMPORT_CFM_FUNCTION VDGetCLUTInUse
  3264.     ENDIF
  3265.  
  3266. ;
  3267. ; pascal VideoDigitizerError VDSetPLLFilterType(VideoDigitizerComponent ci, short pllType)
  3268. ;
  3269.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3270.         Macro
  3271.         _VDSetPLLFilterType
  3272.             move.l              #$00020029,-(sp)
  3273.             moveq               #0,D0
  3274.             dc.w                $A82A
  3275.         EndM
  3276.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3277.         IMPORT_CFM_FUNCTION VDSetPLLFilterType
  3278.     ENDIF
  3279.  
  3280. ;
  3281. ; pascal VideoDigitizerError VDGetPLLFilterType(VideoDigitizerComponent ci, short *pllType)
  3282. ;
  3283.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3284.         Macro
  3285.         _VDGetPLLFilterType
  3286.             move.l              #$0004002A,-(sp)
  3287.             moveq               #0,D0
  3288.             dc.w                $A82A
  3289.         EndM
  3290.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3291.         IMPORT_CFM_FUNCTION VDGetPLLFilterType
  3292.     ENDIF
  3293.  
  3294. ;
  3295. ; pascal VideoDigitizerError VDGetMaskandValue(VideoDigitizerComponent ci, unsigned short blendLevel, long *mask, long *value)
  3296. ;
  3297.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3298.         Macro
  3299.         _VDGetMaskandValue
  3300.             move.l              #$000A002B,-(sp)
  3301.             moveq               #0,D0
  3302.             dc.w                $A82A
  3303.         EndM
  3304.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3305.         IMPORT_CFM_FUNCTION VDGetMaskandValue
  3306.     ENDIF
  3307.  
  3308. ;
  3309. ; pascal VideoDigitizerError VDSetMasterBlendLevel(VideoDigitizerComponent ci, unsigned short *blendLevel)
  3310. ;
  3311.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3312.         Macro
  3313.         _VDSetMasterBlendLevel
  3314.             move.l              #$0004002C,-(sp)
  3315.             moveq               #0,D0
  3316.             dc.w                $A82A
  3317.         EndM
  3318.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3319.         IMPORT_CFM_FUNCTION VDSetMasterBlendLevel
  3320.     ENDIF
  3321.  
  3322. ;
  3323. ; pascal VideoDigitizerError VDSetPlayThruDestination(VideoDigitizerComponent ci, PixMapHandle dest, RectPtr destRect, MatrixRecordPtr m, RgnHandle mask)
  3324. ;
  3325.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3326.         Macro
  3327.         _VDSetPlayThruDestination
  3328.             move.l              #$0010002D,-(sp)
  3329.             moveq               #0,D0
  3330.             dc.w                $A82A
  3331.         EndM
  3332.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3333.         IMPORT_CFM_FUNCTION VDSetPlayThruDestination
  3334.     ENDIF
  3335.  
  3336. ;
  3337. ; pascal VideoDigitizerError VDSetPlayThruOnOff(VideoDigitizerComponent ci, short state)
  3338. ;
  3339.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3340.         Macro
  3341.         _VDSetPlayThruOnOff
  3342.             move.l              #$0002002E,-(sp)
  3343.             moveq               #0,D0
  3344.             dc.w                $A82A
  3345.         EndM
  3346.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3347.         IMPORT_CFM_FUNCTION VDSetPlayThruOnOff
  3348.     ENDIF
  3349.  
  3350. ;
  3351. ; pascal VideoDigitizerError VDSetFieldPreference(VideoDigitizerComponent ci, short fieldFlag)
  3352. ;
  3353.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3354.         Macro
  3355.         _VDSetFieldPreference
  3356.             move.l              #$0002002F,-(sp)
  3357.             moveq               #0,D0
  3358.             dc.w                $A82A
  3359.         EndM
  3360.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3361.         IMPORT_CFM_FUNCTION VDSetFieldPreference
  3362.     ENDIF
  3363.  
  3364. ;
  3365. ; pascal VideoDigitizerError VDGetFieldPreference(VideoDigitizerComponent ci, short *fieldFlag)
  3366. ;
  3367.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3368.         Macro
  3369.         _VDGetFieldPreference
  3370.             move.l              #$00040030,-(sp)
  3371.             moveq               #0,D0
  3372.             dc.w                $A82A
  3373.         EndM
  3374.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3375.         IMPORT_CFM_FUNCTION VDGetFieldPreference
  3376.     ENDIF
  3377.  
  3378. ;
  3379. ; pascal VideoDigitizerError VDPreflightDestination(VideoDigitizerComponent ci, Rect *digitizerRect, PixMap **dest, RectPtr destRect, MatrixRecordPtr m)
  3380. ;
  3381.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3382.         Macro
  3383.         _VDPreflightDestination
  3384.             move.l              #$00100032,-(sp)
  3385.             moveq               #0,D0
  3386.             dc.w                $A82A
  3387.         EndM
  3388.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3389.         IMPORT_CFM_FUNCTION VDPreflightDestination
  3390.     ENDIF
  3391.  
  3392. ;
  3393. ; pascal VideoDigitizerError VDPreflightGlobalRect(VideoDigitizerComponent ci, GrafPtr theWindow, Rect *globalRect)
  3394. ;
  3395.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3396.         Macro
  3397.         _VDPreflightGlobalRect
  3398.             move.l              #$00080033,-(sp)
  3399.             moveq               #0,D0
  3400.             dc.w                $A82A
  3401.         EndM
  3402.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3403.         IMPORT_CFM_FUNCTION VDPreflightGlobalRect
  3404.     ENDIF
  3405.  
  3406. ;
  3407. ; pascal VideoDigitizerError VDSetPlayThruGlobalRect(VideoDigitizerComponent ci, GrafPtr theWindow, Rect *globalRect)
  3408. ;
  3409.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3410.         Macro
  3411.         _VDSetPlayThruGlobalRect
  3412.             move.l              #$00080034,-(sp)
  3413.             moveq               #0,D0
  3414.             dc.w                $A82A
  3415.         EndM
  3416.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3417.         IMPORT_CFM_FUNCTION VDSetPlayThruGlobalRect
  3418.     ENDIF
  3419.  
  3420. ;
  3421. ; pascal VideoDigitizerError VDSetInputGammaRecord(VideoDigitizerComponent ci, VDGamRecPtr inputGammaPtr)
  3422. ;
  3423.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3424.         Macro
  3425.         _VDSetInputGammaRecord
  3426.             move.l              #$00040035,-(sp)
  3427.             moveq               #0,D0
  3428.             dc.w                $A82A
  3429.         EndM
  3430.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3431.         IMPORT_CFM_FUNCTION VDSetInputGammaRecord
  3432.     ENDIF
  3433.  
  3434. ;
  3435. ; pascal VideoDigitizerError VDGetInputGammaRecord(VideoDigitizerComponent ci, VDGamRecPtr *inputGammaPtr)
  3436. ;
  3437.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3438.         Macro
  3439.         _VDGetInputGammaRecord
  3440.             move.l              #$00040036,-(sp)
  3441.             moveq               #0,D0
  3442.             dc.w                $A82A
  3443.         EndM
  3444.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3445.         IMPORT_CFM_FUNCTION VDGetInputGammaRecord
  3446.     ENDIF
  3447.  
  3448. ;
  3449. ; pascal VideoDigitizerError VDSetBlackLevelValue(VideoDigitizerComponent ci, unsigned short *blackLevel)
  3450. ;
  3451.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3452.         Macro
  3453.         _VDSetBlackLevelValue
  3454.             move.l              #$00040037,-(sp)
  3455.             moveq               #0,D0
  3456.             dc.w                $A82A
  3457.         EndM
  3458.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3459.         IMPORT_CFM_FUNCTION VDSetBlackLevelValue
  3460.     ENDIF
  3461.  
  3462. ;
  3463. ; pascal VideoDigitizerError VDGetBlackLevelValue(VideoDigitizerComponent ci, unsigned short *blackLevel)
  3464. ;
  3465.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3466.         Macro
  3467.         _VDGetBlackLevelValue
  3468.             move.l              #$00040038,-(sp)
  3469.             moveq               #0,D0
  3470.             dc.w                $A82A
  3471.         EndM
  3472.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3473.         IMPORT_CFM_FUNCTION VDGetBlackLevelValue
  3474.     ENDIF
  3475.  
  3476. ;
  3477. ; pascal VideoDigitizerError VDSetWhiteLevelValue(VideoDigitizerComponent ci, unsigned short *whiteLevel)
  3478. ;
  3479.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3480.         Macro
  3481.         _VDSetWhiteLevelValue
  3482.             move.l              #$00040039,-(sp)
  3483.             moveq               #0,D0
  3484.             dc.w                $A82A
  3485.         EndM
  3486.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3487.         IMPORT_CFM_FUNCTION VDSetWhiteLevelValue
  3488.     ENDIF
  3489.  
  3490. ;
  3491. ; pascal VideoDigitizerError VDGetWhiteLevelValue(VideoDigitizerComponent ci, unsigned short *whiteLevel)
  3492. ;
  3493.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3494.         Macro
  3495.         _VDGetWhiteLevelValue
  3496.             move.l              #$0004003A,-(sp)
  3497.             moveq               #0,D0
  3498.             dc.w                $A82A
  3499.         EndM
  3500.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3501.         IMPORT_CFM_FUNCTION VDGetWhiteLevelValue
  3502.     ENDIF
  3503.  
  3504. ;
  3505. ; pascal VideoDigitizerError VDGetVideoDefaults(VideoDigitizerComponent ci, unsigned short *blackLevel, unsigned short *whiteLevel, unsigned short *brightness, unsigned short *hue, unsigned short *saturation, unsigned short *contrast, unsigned short *sharpness)
  3506. ;
  3507.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3508.         Macro
  3509.         _VDGetVideoDefaults
  3510.             move.l              #$001C003B,-(sp)
  3511.             moveq               #0,D0
  3512.             dc.w                $A82A
  3513.         EndM
  3514.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3515.         IMPORT_CFM_FUNCTION VDGetVideoDefaults
  3516.     ENDIF
  3517.  
  3518. ;
  3519. ; pascal VideoDigitizerError VDGetNumberOfInputs(VideoDigitizerComponent ci, short *inputs)
  3520. ;
  3521.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3522.         Macro
  3523.         _VDGetNumberOfInputs
  3524.             move.l              #$0004003C,-(sp)
  3525.             moveq               #0,D0
  3526.             dc.w                $A82A
  3527.         EndM
  3528.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3529.         IMPORT_CFM_FUNCTION VDGetNumberOfInputs
  3530.     ENDIF
  3531.  
  3532. ;
  3533. ; pascal VideoDigitizerError VDGetInputFormat(VideoDigitizerComponent ci, short input, short *format)
  3534. ;
  3535.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3536.         Macro
  3537.         _VDGetInputFormat
  3538.             move.l              #$0006003D,-(sp)
  3539.             moveq               #0,D0
  3540.             dc.w                $A82A
  3541.         EndM
  3542.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3543.         IMPORT_CFM_FUNCTION VDGetInputFormat
  3544.     ENDIF
  3545.  
  3546. ;
  3547. ; pascal VideoDigitizerError VDSetInput(VideoDigitizerComponent ci, short input)
  3548. ;
  3549.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3550.         Macro
  3551.         _VDSetInput
  3552.             move.l              #$0002003E,-(sp)
  3553.             moveq               #0,D0
  3554.             dc.w                $A82A
  3555.         EndM
  3556.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3557.         IMPORT_CFM_FUNCTION VDSetInput
  3558.     ENDIF
  3559.  
  3560. ;
  3561. ; pascal VideoDigitizerError VDGetInput(VideoDigitizerComponent ci, short *input)
  3562. ;
  3563.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3564.         Macro
  3565.         _VDGetInput
  3566.             move.l              #$0004003F,-(sp)
  3567.             moveq               #0,D0
  3568.             dc.w                $A82A
  3569.         EndM
  3570.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3571.         IMPORT_CFM_FUNCTION VDGetInput
  3572.     ENDIF
  3573.  
  3574. ;
  3575. ; pascal VideoDigitizerError VDSetInputStandard(VideoDigitizerComponent ci, short inputStandard)
  3576. ;
  3577.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3578.         Macro
  3579.         _VDSetInputStandard
  3580.             move.l              #$00020040,-(sp)
  3581.             moveq               #0,D0
  3582.             dc.w                $A82A
  3583.         EndM
  3584.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3585.         IMPORT_CFM_FUNCTION VDSetInputStandard
  3586.     ENDIF
  3587.  
  3588. ;
  3589. ; pascal VideoDigitizerError VDSetupBuffers(VideoDigitizerComponent ci, VdigBufferRecListHandle bufferList)
  3590. ;
  3591.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3592.         Macro
  3593.         _VDSetupBuffers
  3594.             move.l              #$00040041,-(sp)
  3595.             moveq               #0,D0
  3596.             dc.w                $A82A
  3597.         EndM
  3598.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3599.         IMPORT_CFM_FUNCTION VDSetupBuffers
  3600.     ENDIF
  3601.  
  3602. ;
  3603. ; pascal VideoDigitizerError VDGrabOneFrameAsync(VideoDigitizerComponent ci, short buffer)
  3604. ;
  3605.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3606.         Macro
  3607.         _VDGrabOneFrameAsync
  3608.             move.l              #$00020042,-(sp)
  3609.             moveq               #0,D0
  3610.             dc.w                $A82A
  3611.         EndM
  3612.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3613.         IMPORT_CFM_FUNCTION VDGrabOneFrameAsync
  3614.     ENDIF
  3615.  
  3616. ;
  3617. ; pascal VideoDigitizerError VDDone(VideoDigitizerComponent ci, short buffer)
  3618. ;
  3619.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3620.         Macro
  3621.         _VDDone
  3622.             move.l              #$00020043,-(sp)
  3623.             moveq               #0,D0
  3624.             dc.w                $A82A
  3625.         EndM
  3626.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3627.         IMPORT_CFM_FUNCTION VDDone
  3628.     ENDIF
  3629.  
  3630. ;
  3631. ; pascal VideoDigitizerError VDSetCompression(VideoDigitizerComponent ci, OSType compressType, short depth, Rect *bounds, CodecQ spatialQuality, CodecQ temporalQuality, long keyFrameRate)
  3632. ;
  3633.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3634.         Macro
  3635.         _VDSetCompression
  3636.             move.l              #$00160044,-(sp)
  3637.             moveq               #0,D0
  3638.             dc.w                $A82A
  3639.         EndM
  3640.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3641.         IMPORT_CFM_FUNCTION VDSetCompression
  3642.     ENDIF
  3643.  
  3644. ;
  3645. ; pascal VideoDigitizerError VDCompressOneFrameAsync(VideoDigitizerComponent ci)
  3646. ;
  3647.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3648.         Macro
  3649.         _VDCompressOneFrameAsync
  3650.             move.l              #$00000045,-(sp)
  3651.             moveq               #0,D0
  3652.             dc.w                $A82A
  3653.         EndM
  3654.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3655.         IMPORT_CFM_FUNCTION VDCompressOneFrameAsync
  3656.     ENDIF
  3657.  
  3658. ;
  3659. ; pascal VideoDigitizerError VDCompressDone(VideoDigitizerComponent ci, Boolean *done, Ptr *theData, long *dataSize, UInt8 *similarity, TimeRecord *t)
  3660. ;
  3661.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3662.         Macro
  3663.         _VDCompressDone
  3664.             move.l              #$00140046,-(sp)
  3665.             moveq               #0,D0
  3666.             dc.w                $A82A
  3667.         EndM
  3668.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3669.         IMPORT_CFM_FUNCTION VDCompressDone
  3670.     ENDIF
  3671.  
  3672. ;
  3673. ; pascal VideoDigitizerError VDReleaseCompressBuffer(VideoDigitizerComponent ci, Ptr bufferAddr)
  3674. ;
  3675.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3676.         Macro
  3677.         _VDReleaseCompressBuffer
  3678.             move.l              #$00040047,-(sp)
  3679.             moveq               #0,D0
  3680.             dc.w                $A82A
  3681.         EndM
  3682.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3683.         IMPORT_CFM_FUNCTION VDReleaseCompressBuffer
  3684.     ENDIF
  3685.  
  3686. ;
  3687. ; pascal VideoDigitizerError VDGetImageDescription(VideoDigitizerComponent ci, ImageDescriptionHandle desc)
  3688. ;
  3689.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3690.         Macro
  3691.         _VDGetImageDescription
  3692.             move.l              #$00040048,-(sp)
  3693.             moveq               #0,D0
  3694.             dc.w                $A82A
  3695.         EndM
  3696.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3697.         IMPORT_CFM_FUNCTION VDGetImageDescription
  3698.     ENDIF
  3699.  
  3700. ;
  3701. ; pascal VideoDigitizerError VDResetCompressSequence(VideoDigitizerComponent ci)
  3702. ;
  3703.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3704.         Macro
  3705.         _VDResetCompressSequence
  3706.             move.l              #$00000049,-(sp)
  3707.             moveq               #0,D0
  3708.             dc.w                $A82A
  3709.         EndM
  3710.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3711.         IMPORT_CFM_FUNCTION VDResetCompressSequence
  3712.     ENDIF
  3713.  
  3714. ;
  3715. ; pascal VideoDigitizerError VDSetCompressionOnOff(VideoDigitizerComponent ci, Boolean state)
  3716. ;
  3717.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3718.         Macro
  3719.         _VDSetCompressionOnOff
  3720.             move.l              #$0002004A,-(sp)
  3721.             moveq               #0,D0
  3722.             dc.w                $A82A
  3723.         EndM
  3724.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3725.         IMPORT_CFM_FUNCTION VDSetCompressionOnOff
  3726.     ENDIF
  3727.  
  3728. ;
  3729. ; pascal VideoDigitizerError VDGetCompressionTypes(VideoDigitizerComponent ci, VDCompressionListHandle h)
  3730. ;
  3731.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3732.         Macro
  3733.         _VDGetCompressionTypes
  3734.             move.l              #$0004004B,-(sp)
  3735.             moveq               #0,D0
  3736.             dc.w                $A82A
  3737.         EndM
  3738.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3739.         IMPORT_CFM_FUNCTION VDGetCompressionTypes
  3740.     ENDIF
  3741.  
  3742. ;
  3743. ; pascal VideoDigitizerError VDSetTimeBase(VideoDigitizerComponent ci, TimeBase t)
  3744. ;
  3745.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3746.         Macro
  3747.         _VDSetTimeBase
  3748.             move.l              #$0004004C,-(sp)
  3749.             moveq               #0,D0
  3750.             dc.w                $A82A
  3751.         EndM
  3752.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3753.         IMPORT_CFM_FUNCTION VDSetTimeBase
  3754.     ENDIF
  3755.  
  3756. ;
  3757. ; pascal VideoDigitizerError VDSetFrameRate(VideoDigitizerComponent ci, Fixed framesPerSecond)
  3758. ;
  3759.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3760.         Macro
  3761.         _VDSetFrameRate
  3762.             move.l              #$0004004D,-(sp)
  3763.             moveq               #0,D0
  3764.             dc.w                $A82A
  3765.         EndM
  3766.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3767.         IMPORT_CFM_FUNCTION VDSetFrameRate
  3768.     ENDIF
  3769.  
  3770. ;
  3771. ; pascal VideoDigitizerError VDGetDataRate(VideoDigitizerComponent ci, long *milliSecPerFrame, Fixed *framesPerSecond, long *bytesPerSecond)
  3772. ;
  3773.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3774.         Macro
  3775.         _VDGetDataRate
  3776.             move.l              #$000C004E,-(sp)
  3777.             moveq               #0,D0
  3778.             dc.w                $A82A
  3779.         EndM
  3780.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3781.         IMPORT_CFM_FUNCTION VDGetDataRate
  3782.     ENDIF
  3783.  
  3784. ;
  3785. ; pascal VideoDigitizerError VDGetSoundInputDriver(VideoDigitizerComponent ci, Str255 soundDriverName)
  3786. ;
  3787.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3788.         Macro
  3789.         _VDGetSoundInputDriver
  3790.             move.l              #$0004004F,-(sp)
  3791.             moveq               #0,D0
  3792.             dc.w                $A82A
  3793.         EndM
  3794.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3795.         IMPORT_CFM_FUNCTION VDGetSoundInputDriver
  3796.     ENDIF
  3797.  
  3798. ;
  3799. ; pascal VideoDigitizerError VDGetDMADepths(VideoDigitizerComponent ci, long *depthArray, long *preferredDepth)
  3800. ;
  3801.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3802.         Macro
  3803.         _VDGetDMADepths
  3804.             move.l              #$00080050,-(sp)
  3805.             moveq               #0,D0
  3806.             dc.w                $A82A
  3807.         EndM
  3808.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3809.         IMPORT_CFM_FUNCTION VDGetDMADepths
  3810.     ENDIF
  3811.  
  3812. ;
  3813. ; pascal VideoDigitizerError VDGetPreferredTimeScale(VideoDigitizerComponent ci, TimeScale *preferred)
  3814. ;
  3815.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3816.         Macro
  3817.         _VDGetPreferredTimeScale
  3818.             move.l              #$00040051,-(sp)
  3819.             moveq               #0,D0
  3820.             dc.w                $A82A
  3821.         EndM
  3822.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3823.         IMPORT_CFM_FUNCTION VDGetPreferredTimeScale
  3824.     ENDIF
  3825.  
  3826. ;
  3827. ; pascal VideoDigitizerError VDReleaseAsyncBuffers(VideoDigitizerComponent ci)
  3828. ;
  3829.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3830.         Macro
  3831.         _VDReleaseAsyncBuffers
  3832.             move.l              #$00000052,-(sp)
  3833.             moveq               #0,D0
  3834.             dc.w                $A82A
  3835.         EndM
  3836.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3837.         IMPORT_CFM_FUNCTION VDReleaseAsyncBuffers
  3838.     ENDIF
  3839.  
  3840. ;  83 is reserved for compatibility reasons 
  3841. ;
  3842. ; pascal VideoDigitizerError VDSetDataRate(VideoDigitizerComponent ci, long bytesPerSecond)
  3843. ;
  3844.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3845.         Macro
  3846.         _VDSetDataRate
  3847.             move.l              #$00040054,-(sp)
  3848.             moveq               #0,D0
  3849.             dc.w                $A82A
  3850.         EndM
  3851.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3852.         IMPORT_CFM_FUNCTION VDSetDataRate
  3853.     ENDIF
  3854.  
  3855. ;
  3856. ; pascal VideoDigitizerError VDGetTimeCode(VideoDigitizerComponent ci, TimeRecord *atTime, void *timeCodeFormat, void *timeCodeTime)
  3857. ;
  3858.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3859.         Macro
  3860.         _VDGetTimeCode
  3861.             move.l              #$000C0055,-(sp)
  3862.             moveq               #0,D0
  3863.             dc.w                $A82A
  3864.         EndM
  3865.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3866.         IMPORT_CFM_FUNCTION VDGetTimeCode
  3867.     ENDIF
  3868.  
  3869. ;
  3870. ; pascal VideoDigitizerError VDUseSafeBuffers(VideoDigitizerComponent ci, Boolean useSafeBuffers)
  3871. ;
  3872.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3873.         Macro
  3874.         _VDUseSafeBuffers
  3875.             move.l              #$00020056,-(sp)
  3876.             moveq               #0,D0
  3877.             dc.w                $A82A
  3878.         EndM
  3879.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3880.         IMPORT_CFM_FUNCTION VDUseSafeBuffers
  3881.     ENDIF
  3882.  
  3883. ;
  3884. ; pascal VideoDigitizerError VDGetSoundInputSource(VideoDigitizerComponent ci, long videoInput, long *soundInput)
  3885. ;
  3886.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3887.         Macro
  3888.         _VDGetSoundInputSource
  3889.             move.l              #$00080057,-(sp)
  3890.             moveq               #0,D0
  3891.             dc.w                $A82A
  3892.         EndM
  3893.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3894.         IMPORT_CFM_FUNCTION VDGetSoundInputSource
  3895.     ENDIF
  3896.  
  3897. ;
  3898. ; pascal VideoDigitizerError VDGetCompressionTime(VideoDigitizerComponent ci, OSType compressionType, short depth, Rect *srcRect, CodecQ *spatialQuality, CodecQ *temporalQuality, unsigned long *compressTime)
  3899. ;
  3900.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3901.         Macro
  3902.         _VDGetCompressionTime
  3903.             move.l              #$00160058,-(sp)
  3904.             moveq               #0,D0
  3905.             dc.w                $A82A
  3906.         EndM
  3907.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3908.         IMPORT_CFM_FUNCTION VDGetCompressionTime
  3909.     ENDIF
  3910.  
  3911. ;
  3912. ; pascal VideoDigitizerError VDSetPreferredPacketSize(VideoDigitizerComponent ci, long preferredPacketSizeInBytes)
  3913. ;
  3914.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3915.         Macro
  3916.         _VDSetPreferredPacketSize
  3917.             move.l              #$00040059,-(sp)
  3918.             moveq               #0,D0
  3919.             dc.w                $A82A
  3920.         EndM
  3921.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3922.         IMPORT_CFM_FUNCTION VDSetPreferredPacketSize
  3923.     ENDIF
  3924.  
  3925. ;
  3926. ; pascal VideoDigitizerError VDSetPreferredImageDimensions(VideoDigitizerComponent ci, long width, long height)
  3927. ;
  3928.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3929.         Macro
  3930.         _VDSetPreferredImageDimensions
  3931.             move.l              #$0008005A,-(sp)
  3932.             moveq               #0,D0
  3933.             dc.w                $A82A
  3934.         EndM
  3935.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3936.         IMPORT_CFM_FUNCTION VDSetPreferredImageDimensions
  3937.     ENDIF
  3938.  
  3939. ;
  3940. ; pascal VideoDigitizerError VDGetPreferredImageDimensions(VideoDigitizerComponent ci, long *width, long *height)
  3941. ;
  3942.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3943.         Macro
  3944.         _VDGetPreferredImageDimensions
  3945.             move.l              #$0008005B,-(sp)
  3946.             moveq               #0,D0
  3947.             dc.w                $A82A
  3948.         EndM
  3949.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3950.         IMPORT_CFM_FUNCTION VDGetPreferredImageDimensions
  3951.     ENDIF
  3952.  
  3953. ;
  3954. ; pascal VideoDigitizerError VDGetInputName(VideoDigitizerComponent ci, long videoInput, Str255 name)
  3955. ;
  3956.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  3957.         Macro
  3958.         _VDGetInputName
  3959.             move.l              #$0008005C,-(sp)
  3960.             moveq               #0,D0
  3961.             dc.w                $A82A
  3962.         EndM
  3963.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  3964.         IMPORT_CFM_FUNCTION VDGetInputName
  3965.     ENDIF
  3966.  
  3967.  
  3968.  
  3969. ;    General Sequence Grab stuff
  3970. ;
  3971.  
  3972. ; typedef ComponentInstance             SeqGrabComponent
  3973.  
  3974. ; typedef ComponentInstance             SGChannel
  3975.  
  3976.  
  3977. SeqGrabComponentType            EQU        'barg'
  3978. SeqGrabChannelType                EQU        'sgch'
  3979. SeqGrabPanelType                EQU        'sgpn'
  3980. SeqGrabCompressionPanelType        EQU        'cmpr'
  3981. SeqGrabSourcePanelType            EQU        'sour'
  3982.  
  3983. seqGrabToDisk                    EQU        1
  3984. seqGrabToMemory                    EQU        2
  3985. seqGrabDontUseTempMemory        EQU        4
  3986. seqGrabAppendToFile                EQU        8
  3987. seqGrabDontAddMovieResource        EQU        16
  3988. seqGrabDontMakeMovie            EQU        32
  3989. seqGrabPreExtendFile            EQU        64
  3990. seqGrabDataProcIsInterruptSafe    EQU        128
  3991. seqGrabDataProcDoesOverlappingReads EQU    256
  3992. ; typedef unsigned long                 SeqGrabDataOutputEnum
  3993.  
  3994.  
  3995. seqGrabRecord                    EQU        1
  3996. seqGrabPreview                    EQU        2
  3997. seqGrabPlayDuringRecord            EQU        4
  3998. ; typedef unsigned long                 SeqGrabUsageEnum
  3999.  
  4000.  
  4001. seqGrabHasBounds                EQU        1
  4002. seqGrabHasVolume                EQU        2
  4003. seqGrabHasDiscreteSamples        EQU        4
  4004. ; typedef unsigned long                 SeqGrabChannelInfoEnum
  4005.  
  4006. SGOutputRecord            RECORD 0
  4007. data                     ds.l    1                ; offset: $0 (0) <-- really an array of length one
  4008. sizeof                     EQU *                    ; size:   $4 (4)
  4009.                         ENDR
  4010. ; typedef struct SGOutputRecord *        SGOutput
  4011.  
  4012. SeqGrabFrameInfo        RECORD 0
  4013. frameOffset                 ds.l    1                ; offset: $0 (0)
  4014. frameTime                 ds.l    1                ; offset: $4 (4)
  4015. frameSize                 ds.l    1                ; offset: $8 (8)
  4016. frameChannel             ds.l    1                ; offset: $C (12)
  4017. frameRefCon                 ds.l    1                ; offset: $10 (16)
  4018. sizeof                     EQU *                    ; size:   $14 (20)
  4019.                         ENDR
  4020. ; typedef struct SeqGrabFrameInfo *        SeqGrabFrameInfoPtr
  4021.  
  4022. SeqGrabExtendedFrameInfo RECORD 0
  4023. frameOffset                 ds        wide            ; offset: $0 (0)
  4024. frameTime                 ds.l    1                ; offset: $8 (8)
  4025. frameSize                 ds.l    1                ; offset: $C (12)
  4026. frameChannel             ds.l    1                ; offset: $10 (16)
  4027. frameRefCon                 ds.l    1                ; offset: $14 (20)
  4028. frameOutput                 ds.l    1                ; offset: $18 (24)
  4029. sizeof                     EQU *                    ; size:   $1C (28)
  4030.                         ENDR
  4031. ; typedef struct SeqGrabExtendedFrameInfo * SeqGrabExtendedFrameInfoPtr
  4032.  
  4033.  
  4034. grabPictOffScreen                EQU        1
  4035. grabPictIgnoreClip                EQU        2
  4036. grabPictCurrentImage            EQU        4
  4037.  
  4038. sgFlagControlledGrab            EQU        $01
  4039. SGDeviceName            RECORD 0
  4040. name                     ds        Str63            ; offset: $0 (0)
  4041. icon                     ds.l    1                ; offset: $40 (64)
  4042. flags                     ds.l    1                ; offset: $44 (68)
  4043. refCon                     ds.l    1                ; offset: $48 (72)
  4044. reserved                 ds.l    1                ; offset: $4C (76)        ;  zero
  4045. sizeof                     EQU *                    ; size:   $50 (80)
  4046.                         ENDR
  4047.  
  4048. sgDeviceNameFlagDeviceUnavailable EQU    $01
  4049. SGDeviceListRecord        RECORD 0
  4050. count                     ds.w    1                ; offset: $0 (0)
  4051. selectedIndex             ds.w    1                ; offset: $2 (2)
  4052. reserved                 ds.l    1                ; offset: $4 (4)        ;  zero
  4053. entry                     ds        SGDeviceName    ; offset: $8 (8) <-- really an array of length one
  4054. sizeof                     EQU *                    ; size:   $58 (88)
  4055.                         ENDR
  4056. ; typedef struct SGDeviceListRecord *    SGDeviceListPtr
  4057.  
  4058. ; typedef SGDeviceListPtr *                SGDeviceList
  4059.  
  4060.  
  4061. sgDeviceListWithIcons            EQU        $01
  4062. sgDeviceListDontCheckAvailability EQU    $02
  4063.  
  4064. seqGrabWriteAppend                EQU        0
  4065. seqGrabWriteReserve                EQU        1
  4066. seqGrabWriteFill                EQU        2
  4067.  
  4068. seqGrabUnpause                    EQU        0
  4069. seqGrabPause                    EQU        1
  4070. seqGrabPauseForMenu                EQU        3
  4071.  
  4072. channelFlagDontOpenResFile        EQU        2
  4073. channelFlagHasDependency        EQU        4
  4074.  
  4075. sgPanelFlagForPanel                EQU        1
  4076.  
  4077. seqGrabSettingsPreviewOnly        EQU        1
  4078.  
  4079. channelPlayNormal                EQU        0
  4080. channelPlayFast                    EQU        1
  4081. channelPlayHighQuality            EQU        2
  4082. channelPlayAllData                EQU        4
  4083.  
  4084. ;
  4085. ; pascal ComponentResult SGInitialize(SeqGrabComponent s)
  4086. ;
  4087.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4088.         Macro
  4089.         _SGInitialize
  4090.             move.l              #$00000001,-(sp)
  4091.             moveq               #0,D0
  4092.             dc.w                $A82A
  4093.         EndM
  4094.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4095.         IMPORT_CFM_FUNCTION SGInitialize
  4096.     ENDIF
  4097.  
  4098. ;
  4099. ; pascal ComponentResult SGSetDataOutput(SeqGrabComponent s, const FSSpec *movieFile, long whereFlags)
  4100. ;
  4101.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4102.         Macro
  4103.         _SGSetDataOutput
  4104.             move.l              #$00080002,-(sp)
  4105.             moveq               #0,D0
  4106.             dc.w                $A82A
  4107.         EndM
  4108.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4109.         IMPORT_CFM_FUNCTION SGSetDataOutput
  4110.     ENDIF
  4111.  
  4112. ;
  4113. ; pascal ComponentResult SGGetDataOutput(SeqGrabComponent s, FSSpec *movieFile, long *whereFlags)
  4114. ;
  4115.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4116.         Macro
  4117.         _SGGetDataOutput
  4118.             move.l              #$00080003,-(sp)
  4119.             moveq               #0,D0
  4120.             dc.w                $A82A
  4121.         EndM
  4122.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4123.         IMPORT_CFM_FUNCTION SGGetDataOutput
  4124.     ENDIF
  4125.  
  4126. ;
  4127. ; pascal ComponentResult SGSetGWorld(SeqGrabComponent s, CGrafPtr gp, GDHandle gd)
  4128. ;
  4129.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4130.         Macro
  4131.         _SGSetGWorld
  4132.             move.l              #$00080004,-(sp)
  4133.             moveq               #0,D0
  4134.             dc.w                $A82A
  4135.         EndM
  4136.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4137.         IMPORT_CFM_FUNCTION SGSetGWorld
  4138.     ENDIF
  4139.  
  4140. ;
  4141. ; pascal ComponentResult SGGetGWorld(SeqGrabComponent s, CGrafPtr *gp, GDHandle *gd)
  4142. ;
  4143.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4144.         Macro
  4145.         _SGGetGWorld
  4146.             move.l              #$00080005,-(sp)
  4147.             moveq               #0,D0
  4148.             dc.w                $A82A
  4149.         EndM
  4150.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4151.         IMPORT_CFM_FUNCTION SGGetGWorld
  4152.     ENDIF
  4153.  
  4154. ;
  4155. ; pascal ComponentResult SGNewChannel(SeqGrabComponent s, OSType channelType, SGChannel *ref)
  4156. ;
  4157.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4158.         Macro
  4159.         _SGNewChannel
  4160.             move.l              #$00080006,-(sp)
  4161.             moveq               #0,D0
  4162.             dc.w                $A82A
  4163.         EndM
  4164.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4165.         IMPORT_CFM_FUNCTION SGNewChannel
  4166.     ENDIF
  4167.  
  4168. ;
  4169. ; pascal ComponentResult SGDisposeChannel(SeqGrabComponent s, SGChannel c)
  4170. ;
  4171.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4172.         Macro
  4173.         _SGDisposeChannel
  4174.             move.l              #$00040007,-(sp)
  4175.             moveq               #0,D0
  4176.             dc.w                $A82A
  4177.         EndM
  4178.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4179.         IMPORT_CFM_FUNCTION SGDisposeChannel
  4180.     ENDIF
  4181.  
  4182. ;
  4183. ; pascal ComponentResult SGStartPreview(SeqGrabComponent s)
  4184. ;
  4185.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4186.         Macro
  4187.         _SGStartPreview
  4188.             move.l              #$00000010,-(sp)
  4189.             moveq               #0,D0
  4190.             dc.w                $A82A
  4191.         EndM
  4192.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4193.         IMPORT_CFM_FUNCTION SGStartPreview
  4194.     ENDIF
  4195.  
  4196. ;
  4197. ; pascal ComponentResult SGStartRecord(SeqGrabComponent s)
  4198. ;
  4199.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4200.         Macro
  4201.         _SGStartRecord
  4202.             move.l              #$00000011,-(sp)
  4203.             moveq               #0,D0
  4204.             dc.w                $A82A
  4205.         EndM
  4206.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4207.         IMPORT_CFM_FUNCTION SGStartRecord
  4208.     ENDIF
  4209.  
  4210. ;
  4211. ; pascal ComponentResult SGIdle(SeqGrabComponent s)
  4212. ;
  4213.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4214.         Macro
  4215.         _SGIdle
  4216.             move.l              #$00000012,-(sp)
  4217.             moveq               #0,D0
  4218.             dc.w                $A82A
  4219.         EndM
  4220.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4221.         IMPORT_CFM_FUNCTION SGIdle
  4222.     ENDIF
  4223.  
  4224. ;
  4225. ; pascal ComponentResult SGStop(SeqGrabComponent s)
  4226. ;
  4227.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4228.         Macro
  4229.         _SGStop
  4230.             move.l              #$00000013,-(sp)
  4231.             moveq               #0,D0
  4232.             dc.w                $A82A
  4233.         EndM
  4234.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4235.         IMPORT_CFM_FUNCTION SGStop
  4236.     ENDIF
  4237.  
  4238. ;
  4239. ; pascal ComponentResult SGPause(SeqGrabComponent s, Byte pause)
  4240. ;
  4241.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4242.         Macro
  4243.         _SGPause
  4244.             move.l              #$00020014,-(sp)
  4245.             moveq               #0,D0
  4246.             dc.w                $A82A
  4247.         EndM
  4248.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4249.         IMPORT_CFM_FUNCTION SGPause
  4250.     ENDIF
  4251.  
  4252. ;
  4253. ; pascal ComponentResult SGPrepare(SeqGrabComponent s, Boolean prepareForPreview, Boolean prepareForRecord)
  4254. ;
  4255.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4256.         Macro
  4257.         _SGPrepare
  4258.             move.l              #$00040015,-(sp)
  4259.             moveq               #0,D0
  4260.             dc.w                $A82A
  4261.         EndM
  4262.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4263.         IMPORT_CFM_FUNCTION SGPrepare
  4264.     ENDIF
  4265.  
  4266. ;
  4267. ; pascal ComponentResult SGRelease(SeqGrabComponent s)
  4268. ;
  4269.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4270.         Macro
  4271.         _SGRelease
  4272.             move.l              #$00000016,-(sp)
  4273.             moveq               #0,D0
  4274.             dc.w                $A82A
  4275.         EndM
  4276.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4277.         IMPORT_CFM_FUNCTION SGRelease
  4278.     ENDIF
  4279.  
  4280. ;
  4281. ; pascal Movie SGGetMovie(SeqGrabComponent s)
  4282. ;
  4283.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4284.         Macro
  4285.         _SGGetMovie
  4286.             move.l              #$00000017,-(sp)
  4287.             moveq               #0,D0
  4288.             dc.w                $A82A
  4289.         EndM
  4290.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4291.         IMPORT_CFM_FUNCTION SGGetMovie
  4292.     ENDIF
  4293.  
  4294. ;
  4295. ; pascal ComponentResult SGSetMaximumRecordTime(SeqGrabComponent s, unsigned long ticks)
  4296. ;
  4297.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4298.         Macro
  4299.         _SGSetMaximumRecordTime
  4300.             move.l              #$00040018,-(sp)
  4301.             moveq               #0,D0
  4302.             dc.w                $A82A
  4303.         EndM
  4304.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4305.         IMPORT_CFM_FUNCTION SGSetMaximumRecordTime
  4306.     ENDIF
  4307.  
  4308. ;
  4309. ; pascal ComponentResult SGGetMaximumRecordTime(SeqGrabComponent s, unsigned long *ticks)
  4310. ;
  4311.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4312.         Macro
  4313.         _SGGetMaximumRecordTime
  4314.             move.l              #$00040019,-(sp)
  4315.             moveq               #0,D0
  4316.             dc.w                $A82A
  4317.         EndM
  4318.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4319.         IMPORT_CFM_FUNCTION SGGetMaximumRecordTime
  4320.     ENDIF
  4321.  
  4322. ;
  4323. ; pascal ComponentResult SGGetStorageSpaceRemaining(SeqGrabComponent s, unsigned long *bytes)
  4324. ;
  4325.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4326.         Macro
  4327.         _SGGetStorageSpaceRemaining
  4328.             move.l              #$0004001A,-(sp)
  4329.             moveq               #0,D0
  4330.             dc.w                $A82A
  4331.         EndM
  4332.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4333.         IMPORT_CFM_FUNCTION SGGetStorageSpaceRemaining
  4334.     ENDIF
  4335.  
  4336. ;
  4337. ; pascal ComponentResult SGGetTimeRemaining(SeqGrabComponent s, long *ticksLeft)
  4338. ;
  4339.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4340.         Macro
  4341.         _SGGetTimeRemaining
  4342.             move.l              #$0004001B,-(sp)
  4343.             moveq               #0,D0
  4344.             dc.w                $A82A
  4345.         EndM
  4346.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4347.         IMPORT_CFM_FUNCTION SGGetTimeRemaining
  4348.     ENDIF
  4349.  
  4350. ;
  4351. ; pascal ComponentResult SGGrabPict(SeqGrabComponent s, PicHandle *p, const Rect *bounds, short offscreenDepth, long grabPictFlags)
  4352. ;
  4353.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4354.         Macro
  4355.         _SGGrabPict
  4356.             move.l              #$000E001C,-(sp)
  4357.             moveq               #0,D0
  4358.             dc.w                $A82A
  4359.         EndM
  4360.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4361.         IMPORT_CFM_FUNCTION SGGrabPict
  4362.     ENDIF
  4363.  
  4364. ;
  4365. ; pascal ComponentResult SGGetLastMovieResID(SeqGrabComponent s, short *resID)
  4366. ;
  4367.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4368.         Macro
  4369.         _SGGetLastMovieResID
  4370.             move.l              #$0004001D,-(sp)
  4371.             moveq               #0,D0
  4372.             dc.w                $A82A
  4373.         EndM
  4374.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4375.         IMPORT_CFM_FUNCTION SGGetLastMovieResID
  4376.     ENDIF
  4377.  
  4378. ;
  4379. ; pascal ComponentResult SGSetFlags(SeqGrabComponent s, long sgFlags)
  4380. ;
  4381.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4382.         Macro
  4383.         _SGSetFlags
  4384.             move.l              #$0004001E,-(sp)
  4385.             moveq               #0,D0
  4386.             dc.w                $A82A
  4387.         EndM
  4388.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4389.         IMPORT_CFM_FUNCTION SGSetFlags
  4390.     ENDIF
  4391.  
  4392. ;
  4393. ; pascal ComponentResult SGGetFlags(SeqGrabComponent s, long *sgFlags)
  4394. ;
  4395.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4396.         Macro
  4397.         _SGGetFlags
  4398.             move.l              #$0004001F,-(sp)
  4399.             moveq               #0,D0
  4400.             dc.w                $A82A
  4401.         EndM
  4402.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4403.         IMPORT_CFM_FUNCTION SGGetFlags
  4404.     ENDIF
  4405.  
  4406. ;
  4407. ; pascal ComponentResult SGSetDataProc(SeqGrabComponent s, SGDataUPP proc, long refCon)
  4408. ;
  4409.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4410.         Macro
  4411.         _SGSetDataProc
  4412.             move.l              #$00080020,-(sp)
  4413.             moveq               #0,D0
  4414.             dc.w                $A82A
  4415.         EndM
  4416.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4417.         IMPORT_CFM_FUNCTION SGSetDataProc
  4418.     ENDIF
  4419.  
  4420. ;
  4421. ; pascal ComponentResult SGNewChannelFromComponent(SeqGrabComponent s, SGChannel *newChannel, Component sgChannelComponent)
  4422. ;
  4423.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4424.         Macro
  4425.         _SGNewChannelFromComponent
  4426.             move.l              #$00080021,-(sp)
  4427.             moveq               #0,D0
  4428.             dc.w                $A82A
  4429.         EndM
  4430.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4431.         IMPORT_CFM_FUNCTION SGNewChannelFromComponent
  4432.     ENDIF
  4433.  
  4434. ;
  4435. ; pascal ComponentResult SGDisposeDeviceList(SeqGrabComponent s, SGDeviceList list)
  4436. ;
  4437.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4438.         Macro
  4439.         _SGDisposeDeviceList
  4440.             move.l              #$00040022,-(sp)
  4441.             moveq               #0,D0
  4442.             dc.w                $A82A
  4443.         EndM
  4444.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4445.         IMPORT_CFM_FUNCTION SGDisposeDeviceList
  4446.     ENDIF
  4447.  
  4448. ;
  4449. ; pascal ComponentResult SGAppendDeviceListToMenu(SeqGrabComponent s, SGDeviceList list, MenuHandle mh)
  4450. ;
  4451.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4452.         Macro
  4453.         _SGAppendDeviceListToMenu
  4454.             move.l              #$00080023,-(sp)
  4455.             moveq               #0,D0
  4456.             dc.w                $A82A
  4457.         EndM
  4458.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4459.         IMPORT_CFM_FUNCTION SGAppendDeviceListToMenu
  4460.     ENDIF
  4461.  
  4462. ;
  4463. ; pascal ComponentResult SGSetSettings(SeqGrabComponent s, UserData ud, long flags)
  4464. ;
  4465.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4466.         Macro
  4467.         _SGSetSettings
  4468.             move.l              #$00080024,-(sp)
  4469.             moveq               #0,D0
  4470.             dc.w                $A82A
  4471.         EndM
  4472.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4473.         IMPORT_CFM_FUNCTION SGSetSettings
  4474.     ENDIF
  4475.  
  4476. ;
  4477. ; pascal ComponentResult SGGetSettings(SeqGrabComponent s, UserData *ud, long flags)
  4478. ;
  4479.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4480.         Macro
  4481.         _SGGetSettings
  4482.             move.l              #$00080025,-(sp)
  4483.             moveq               #0,D0
  4484.             dc.w                $A82A
  4485.         EndM
  4486.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4487.         IMPORT_CFM_FUNCTION SGGetSettings
  4488.     ENDIF
  4489.  
  4490. ;
  4491. ; pascal ComponentResult SGGetIndChannel(SeqGrabComponent s, short index, SGChannel *ref, OSType *chanType)
  4492. ;
  4493.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4494.         Macro
  4495.         _SGGetIndChannel
  4496.             move.l              #$000A0026,-(sp)
  4497.             moveq               #0,D0
  4498.             dc.w                $A82A
  4499.         EndM
  4500.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4501.         IMPORT_CFM_FUNCTION SGGetIndChannel
  4502.     ENDIF
  4503.  
  4504. ;
  4505. ; pascal ComponentResult SGUpdate(SeqGrabComponent s, RgnHandle updateRgn)
  4506. ;
  4507.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4508.         Macro
  4509.         _SGUpdate
  4510.             move.l              #$00040027,-(sp)
  4511.             moveq               #0,D0
  4512.             dc.w                $A82A
  4513.         EndM
  4514.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4515.         IMPORT_CFM_FUNCTION SGUpdate
  4516.     ENDIF
  4517.  
  4518. ;
  4519. ; pascal ComponentResult SGGetPause(SeqGrabComponent s, Byte *paused)
  4520. ;
  4521.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4522.         Macro
  4523.         _SGGetPause
  4524.             move.l              #$00040028,-(sp)
  4525.             moveq               #0,D0
  4526.             dc.w                $A82A
  4527.         EndM
  4528.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4529.         IMPORT_CFM_FUNCTION SGGetPause
  4530.     ENDIF
  4531.  
  4532. ; typedef const Component *                ConstComponentListPtr
  4533.  
  4534. ;
  4535. ; pascal ComponentResult SGSettingsDialog(SeqGrabComponent s, SGChannel c, short numPanels, ConstComponentListPtr panelList, long flags, SGModalFilterUPP proc, long procRefNum)
  4536. ;
  4537.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4538.         Macro
  4539.         _SGSettingsDialog
  4540.             move.l              #$00160029,-(sp)
  4541.             moveq               #0,D0
  4542.             dc.w                $A82A
  4543.         EndM
  4544.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4545.         IMPORT_CFM_FUNCTION SGSettingsDialog
  4546.     ENDIF
  4547.  
  4548. ;
  4549. ; pascal ComponentResult SGGetAlignmentProc(SeqGrabComponent s, ICMAlignmentProcRecordPtr alignmentProc)
  4550. ;
  4551.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4552.         Macro
  4553.         _SGGetAlignmentProc
  4554.             move.l              #$0004002A,-(sp)
  4555.             moveq               #0,D0
  4556.             dc.w                $A82A
  4557.         EndM
  4558.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4559.         IMPORT_CFM_FUNCTION SGGetAlignmentProc
  4560.     ENDIF
  4561.  
  4562. ;
  4563. ; pascal ComponentResult SGSetChannelSettings(SeqGrabComponent s, SGChannel c, UserData ud, long flags)
  4564. ;
  4565.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4566.         Macro
  4567.         _SGSetChannelSettings
  4568.             move.l              #$000C002B,-(sp)
  4569.             moveq               #0,D0
  4570.             dc.w                $A82A
  4571.         EndM
  4572.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4573.         IMPORT_CFM_FUNCTION SGSetChannelSettings
  4574.     ENDIF
  4575.  
  4576. ;
  4577. ; pascal ComponentResult SGGetChannelSettings(SeqGrabComponent s, SGChannel c, UserData *ud, long flags)
  4578. ;
  4579.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4580.         Macro
  4581.         _SGGetChannelSettings
  4582.             move.l              #$000C002C,-(sp)
  4583.             moveq               #0,D0
  4584.             dc.w                $A82A
  4585.         EndM
  4586.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4587.         IMPORT_CFM_FUNCTION SGGetChannelSettings
  4588.     ENDIF
  4589.  
  4590. ;
  4591. ; pascal ComponentResult SGGetMode(SeqGrabComponent s, Boolean *previewMode, Boolean *recordMode)
  4592. ;
  4593.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4594.         Macro
  4595.         _SGGetMode
  4596.             move.l              #$0008002D,-(sp)
  4597.             moveq               #0,D0
  4598.             dc.w                $A82A
  4599.         EndM
  4600.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4601.         IMPORT_CFM_FUNCTION SGGetMode
  4602.     ENDIF
  4603.  
  4604. ;
  4605. ; pascal ComponentResult SGSetDataRef(SeqGrabComponent s, Handle dataRef, OSType dataRefType, long whereFlags)
  4606. ;
  4607.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4608.         Macro
  4609.         _SGSetDataRef
  4610.             move.l              #$000C002E,-(sp)
  4611.             moveq               #0,D0
  4612.             dc.w                $A82A
  4613.         EndM
  4614.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4615.         IMPORT_CFM_FUNCTION SGSetDataRef
  4616.     ENDIF
  4617.  
  4618. ;
  4619. ; pascal ComponentResult SGGetDataRef(SeqGrabComponent s, Handle *dataRef, OSType *dataRefType, long *whereFlags)
  4620. ;
  4621.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4622.         Macro
  4623.         _SGGetDataRef
  4624.             move.l              #$000C002F,-(sp)
  4625.             moveq               #0,D0
  4626.             dc.w                $A82A
  4627.         EndM
  4628.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4629.         IMPORT_CFM_FUNCTION SGGetDataRef
  4630.     ENDIF
  4631.  
  4632. ;
  4633. ; pascal ComponentResult SGNewOutput(SeqGrabComponent s, Handle dataRef, OSType dataRefType, long whereFlags, SGOutput *sgOut)
  4634. ;
  4635.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4636.         Macro
  4637.         _SGNewOutput
  4638.             move.l              #$00100030,-(sp)
  4639.             moveq               #0,D0
  4640.             dc.w                $A82A
  4641.         EndM
  4642.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4643.         IMPORT_CFM_FUNCTION SGNewOutput
  4644.     ENDIF
  4645.  
  4646. ;
  4647. ; pascal ComponentResult SGDisposeOutput(SeqGrabComponent s, SGOutput sgOut)
  4648. ;
  4649.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4650.         Macro
  4651.         _SGDisposeOutput
  4652.             move.l              #$00040031,-(sp)
  4653.             moveq               #0,D0
  4654.             dc.w                $A82A
  4655.         EndM
  4656.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4657.         IMPORT_CFM_FUNCTION SGDisposeOutput
  4658.     ENDIF
  4659.  
  4660. ;
  4661. ; pascal ComponentResult SGSetOutputFlags(SeqGrabComponent s, SGOutput sgOut, long whereFlags)
  4662. ;
  4663.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4664.         Macro
  4665.         _SGSetOutputFlags
  4666.             move.l              #$00080032,-(sp)
  4667.             moveq               #0,D0
  4668.             dc.w                $A82A
  4669.         EndM
  4670.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4671.         IMPORT_CFM_FUNCTION SGSetOutputFlags
  4672.     ENDIF
  4673.  
  4674. ;
  4675. ; pascal ComponentResult SGSetChannelOutput(SeqGrabComponent s, SGChannel c, SGOutput sgOut)
  4676. ;
  4677.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4678.         Macro
  4679.         _SGSetChannelOutput
  4680.             move.l              #$00080033,-(sp)
  4681.             moveq               #0,D0
  4682.             dc.w                $A82A
  4683.         EndM
  4684.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4685.         IMPORT_CFM_FUNCTION SGSetChannelOutput
  4686.     ENDIF
  4687.  
  4688. ;
  4689. ; pascal ComponentResult SGGetDataOutputStorageSpaceRemaining(SeqGrabComponent s, SGOutput sgOut, unsigned long *space)
  4690. ;
  4691.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4692.         Macro
  4693.         _SGGetDataOutputStorageSpaceRemaining
  4694.             move.l              #$00080034,-(sp)
  4695.             moveq               #0,D0
  4696.             dc.w                $A82A
  4697.         EndM
  4698.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4699.         IMPORT_CFM_FUNCTION SGGetDataOutputStorageSpaceRemaining
  4700.     ENDIF
  4701.  
  4702. ;
  4703. ; pascal ComponentResult SGHandleUpdateEvent(SeqGrabComponent s, const EventRecord *event, Boolean *handled)
  4704. ;
  4705.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4706.         Macro
  4707.         _SGHandleUpdateEvent
  4708.             move.l              #$00080035,-(sp)
  4709.             moveq               #0,D0
  4710.             dc.w                $A82A
  4711.         EndM
  4712.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4713.         IMPORT_CFM_FUNCTION SGHandleUpdateEvent
  4714.     ENDIF
  4715.  
  4716. ;
  4717. ; pascal ComponentResult SGSetOutputNextOutput(SeqGrabComponent s, SGOutput sgOut, SGOutput nextOut)
  4718. ;
  4719.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4720.         Macro
  4721.         _SGSetOutputNextOutput
  4722.             move.l              #$00080036,-(sp)
  4723.             moveq               #0,D0
  4724.             dc.w                $A82A
  4725.         EndM
  4726.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4727.         IMPORT_CFM_FUNCTION SGSetOutputNextOutput
  4728.     ENDIF
  4729.  
  4730. ;
  4731. ; pascal ComponentResult SGGetOutputNextOutput(SeqGrabComponent s, SGOutput sgOut, SGOutput *nextOut)
  4732. ;
  4733.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4734.         Macro
  4735.         _SGGetOutputNextOutput
  4736.             move.l              #$00080037,-(sp)
  4737.             moveq               #0,D0
  4738.             dc.w                $A82A
  4739.         EndM
  4740.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4741.         IMPORT_CFM_FUNCTION SGGetOutputNextOutput
  4742.     ENDIF
  4743.  
  4744. ;
  4745. ; pascal ComponentResult SGSetOutputMaximumOffset(SeqGrabComponent s, SGOutput sgOut, const wide *maxOffset)
  4746. ;
  4747.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4748.         Macro
  4749.         _SGSetOutputMaximumOffset
  4750.             move.l              #$00080038,-(sp)
  4751.             moveq               #0,D0
  4752.             dc.w                $A82A
  4753.         EndM
  4754.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4755.         IMPORT_CFM_FUNCTION SGSetOutputMaximumOffset
  4756.     ENDIF
  4757.  
  4758. ;
  4759. ; pascal ComponentResult SGGetOutputMaximumOffset(SeqGrabComponent s, SGOutput sgOut, wide *maxOffset)
  4760. ;
  4761.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4762.         Macro
  4763.         _SGGetOutputMaximumOffset
  4764.             move.l              #$00080039,-(sp)
  4765.             moveq               #0,D0
  4766.             dc.w                $A82A
  4767.         EndM
  4768.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4769.         IMPORT_CFM_FUNCTION SGGetOutputMaximumOffset
  4770.     ENDIF
  4771.  
  4772. ;
  4773. ; pascal ComponentResult SGGetOutputDataReference(SeqGrabComponent s, SGOutput sgOut, Handle *dataRef, OSType *dataRefType)
  4774. ;
  4775.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4776.         Macro
  4777.         _SGGetOutputDataReference
  4778.             move.l              #$000C003A,-(sp)
  4779.             moveq               #0,D0
  4780.             dc.w                $A82A
  4781.         EndM
  4782.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4783.         IMPORT_CFM_FUNCTION SGGetOutputDataReference
  4784.     ENDIF
  4785.  
  4786. ;
  4787. ; pascal ComponentResult SGWriteExtendedMovieData(SeqGrabComponent s, SGChannel c, Ptr p, long len, wide *offset, SGOutput *sgOut)
  4788. ;
  4789.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4790.         Macro
  4791.         _SGWriteExtendedMovieData
  4792.             move.l              #$0014003B,-(sp)
  4793.             moveq               #0,D0
  4794.             dc.w                $A82A
  4795.         EndM
  4796.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4797.         IMPORT_CFM_FUNCTION SGWriteExtendedMovieData
  4798.     ENDIF
  4799.  
  4800. ;    calls from Channel to seqGrab
  4801. ;
  4802.  
  4803. ;
  4804. ; pascal ComponentResult SGWriteMovieData(SeqGrabComponent s, SGChannel c, Ptr p, long len, long *offset)
  4805. ;
  4806.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4807.         Macro
  4808.         _SGWriteMovieData
  4809.             move.l              #$00100100,-(sp)
  4810.             moveq               #0,D0
  4811.             dc.w                $A82A
  4812.         EndM
  4813.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4814.         IMPORT_CFM_FUNCTION SGWriteMovieData
  4815.     ENDIF
  4816.  
  4817. ;
  4818. ; pascal ComponentResult SGAddFrameReference(SeqGrabComponent s, SeqGrabFrameInfoPtr frameInfo)
  4819. ;
  4820.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4821.         Macro
  4822.         _SGAddFrameReference
  4823.             move.l              #$00040101,-(sp)
  4824.             moveq               #0,D0
  4825.             dc.w                $A82A
  4826.         EndM
  4827.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4828.         IMPORT_CFM_FUNCTION SGAddFrameReference
  4829.     ENDIF
  4830.  
  4831. ;
  4832. ; pascal ComponentResult SGGetNextFrameReference(SeqGrabComponent s, SeqGrabFrameInfoPtr frameInfo, TimeValue *frameDuration, long *frameNumber)
  4833. ;
  4834.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4835.         Macro
  4836.         _SGGetNextFrameReference
  4837.             move.l              #$000C0102,-(sp)
  4838.             moveq               #0,D0
  4839.             dc.w                $A82A
  4840.         EndM
  4841.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4842.         IMPORT_CFM_FUNCTION SGGetNextFrameReference
  4843.     ENDIF
  4844.  
  4845. ;
  4846. ; pascal ComponentResult SGGetTimeBase(SeqGrabComponent s, TimeBase *tb)
  4847. ;
  4848.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4849.         Macro
  4850.         _SGGetTimeBase
  4851.             move.l              #$00040103,-(sp)
  4852.             moveq               #0,D0
  4853.             dc.w                $A82A
  4854.         EndM
  4855.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4856.         IMPORT_CFM_FUNCTION SGGetTimeBase
  4857.     ENDIF
  4858.  
  4859. ;
  4860. ; pascal ComponentResult SGSortDeviceList(SeqGrabComponent s, SGDeviceList list)
  4861. ;
  4862.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4863.         Macro
  4864.         _SGSortDeviceList
  4865.             move.l              #$00040104,-(sp)
  4866.             moveq               #0,D0
  4867.             dc.w                $A82A
  4868.         EndM
  4869.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4870.         IMPORT_CFM_FUNCTION SGSortDeviceList
  4871.     ENDIF
  4872.  
  4873. ;
  4874. ; pascal ComponentResult SGAddMovieData(SeqGrabComponent s, SGChannel c, Ptr p, long len, long *offset, long chRefCon, TimeValue time, short writeType)
  4875. ;
  4876.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4877.         Macro
  4878.         _SGAddMovieData
  4879.             move.l              #$001A0105,-(sp)
  4880.             moveq               #0,D0
  4881.             dc.w                $A82A
  4882.         EndM
  4883.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4884.         IMPORT_CFM_FUNCTION SGAddMovieData
  4885.     ENDIF
  4886.  
  4887. ;
  4888. ; pascal ComponentResult SGChangedSource(SeqGrabComponent s, SGChannel c)
  4889. ;
  4890.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4891.         Macro
  4892.         _SGChangedSource
  4893.             move.l              #$00040106,-(sp)
  4894.             moveq               #0,D0
  4895.             dc.w                $A82A
  4896.         EndM
  4897.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4898.         IMPORT_CFM_FUNCTION SGChangedSource
  4899.     ENDIF
  4900.  
  4901. ;
  4902. ; pascal ComponentResult SGAddExtendedFrameReference(SeqGrabComponent s, SeqGrabExtendedFrameInfoPtr frameInfo)
  4903. ;
  4904.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4905.         Macro
  4906.         _SGAddExtendedFrameReference
  4907.             move.l              #$00040107,-(sp)
  4908.             moveq               #0,D0
  4909.             dc.w                $A82A
  4910.         EndM
  4911.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4912.         IMPORT_CFM_FUNCTION SGAddExtendedFrameReference
  4913.     ENDIF
  4914.  
  4915. ;
  4916. ; pascal ComponentResult SGGetNextExtendedFrameReference(SeqGrabComponent s, SeqGrabExtendedFrameInfoPtr frameInfo, TimeValue *frameDuration, long *frameNumber)
  4917. ;
  4918.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4919.         Macro
  4920.         _SGGetNextExtendedFrameReference
  4921.             move.l              #$000C0108,-(sp)
  4922.             moveq               #0,D0
  4923.             dc.w                $A82A
  4924.         EndM
  4925.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4926.         IMPORT_CFM_FUNCTION SGGetNextExtendedFrameReference
  4927.     ENDIF
  4928.  
  4929. ;
  4930. ; pascal ComponentResult SGAddExtendedMovieData(SeqGrabComponent s, SGChannel c, Ptr p, long len, wide *offset, long chRefCon, TimeValue time, short writeType, SGOutput *whichOutput)
  4931. ;
  4932.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4933.         Macro
  4934.         _SGAddExtendedMovieData
  4935.             move.l              #$001E0109,-(sp)
  4936.             moveq               #0,D0
  4937.             dc.w                $A82A
  4938.         EndM
  4939.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4940.         IMPORT_CFM_FUNCTION SGAddExtendedMovieData
  4941.     ENDIF
  4942.  
  4943. ;
  4944. ; pascal ComponentResult SGAddOutputDataRefToMedia(SeqGrabComponent s, SGOutput sgOut, Media theMedia, SampleDescriptionHandle desc)
  4945. ;
  4946.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4947.         Macro
  4948.         _SGAddOutputDataRefToMedia
  4949.             move.l              #$000C010A,-(sp)
  4950.             moveq               #0,D0
  4951.             dc.w                $A82A
  4952.         EndM
  4953.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4954.         IMPORT_CFM_FUNCTION SGAddOutputDataRefToMedia
  4955.     ENDIF
  4956.  
  4957.  
  4958.  
  4959. ; ** Sequence Grab CHANNEL Component Stuff **
  4960.  
  4961. ;
  4962. ; pascal ComponentResult SGSetChannelUsage(SGChannel c, long usage)
  4963. ;
  4964.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4965.         Macro
  4966.         _SGSetChannelUsage
  4967.             move.l              #$00040080,-(sp)
  4968.             moveq               #0,D0
  4969.             dc.w                $A82A
  4970.         EndM
  4971.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4972.         IMPORT_CFM_FUNCTION SGSetChannelUsage
  4973.     ENDIF
  4974.  
  4975. ;
  4976. ; pascal ComponentResult SGGetChannelUsage(SGChannel c, long *usage)
  4977. ;
  4978.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4979.         Macro
  4980.         _SGGetChannelUsage
  4981.             move.l              #$00040081,-(sp)
  4982.             moveq               #0,D0
  4983.             dc.w                $A82A
  4984.         EndM
  4985.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  4986.         IMPORT_CFM_FUNCTION SGGetChannelUsage
  4987.     ENDIF
  4988.  
  4989. ;
  4990. ; pascal ComponentResult SGSetChannelBounds(SGChannel c, const Rect *bounds)
  4991. ;
  4992.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  4993.         Macro
  4994.         _SGSetChannelBounds
  4995.             move.l              #$00040082,-(sp)
  4996.             moveq               #0,D0
  4997.             dc.w                $A82A
  4998.         EndM
  4999.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5000.         IMPORT_CFM_FUNCTION SGSetChannelBounds
  5001.     ENDIF
  5002.  
  5003. ;
  5004. ; pascal ComponentResult SGGetChannelBounds(SGChannel c, Rect *bounds)
  5005. ;
  5006.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5007.         Macro
  5008.         _SGGetChannelBounds
  5009.             move.l              #$00040083,-(sp)
  5010.             moveq               #0,D0
  5011.             dc.w                $A82A
  5012.         EndM
  5013.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5014.         IMPORT_CFM_FUNCTION SGGetChannelBounds
  5015.     ENDIF
  5016.  
  5017. ;
  5018. ; pascal ComponentResult SGSetChannelVolume(SGChannel c, short volume)
  5019. ;
  5020.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5021.         Macro
  5022.         _SGSetChannelVolume
  5023.             move.l              #$00020084,-(sp)
  5024.             moveq               #0,D0
  5025.             dc.w                $A82A
  5026.         EndM
  5027.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5028.         IMPORT_CFM_FUNCTION SGSetChannelVolume
  5029.     ENDIF
  5030.  
  5031. ;
  5032. ; pascal ComponentResult SGGetChannelVolume(SGChannel c, short *volume)
  5033. ;
  5034.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5035.         Macro
  5036.         _SGGetChannelVolume
  5037.             move.l              #$00040085,-(sp)
  5038.             moveq               #0,D0
  5039.             dc.w                $A82A
  5040.         EndM
  5041.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5042.         IMPORT_CFM_FUNCTION SGGetChannelVolume
  5043.     ENDIF
  5044.  
  5045. ;
  5046. ; pascal ComponentResult SGGetChannelInfo(SGChannel c, long *channelInfo)
  5047. ;
  5048.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5049.         Macro
  5050.         _SGGetChannelInfo
  5051.             move.l              #$00040086,-(sp)
  5052.             moveq               #0,D0
  5053.             dc.w                $A82A
  5054.         EndM
  5055.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5056.         IMPORT_CFM_FUNCTION SGGetChannelInfo
  5057.     ENDIF
  5058.  
  5059. ;
  5060. ; pascal ComponentResult SGSetChannelPlayFlags(SGChannel c, long playFlags)
  5061. ;
  5062.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5063.         Macro
  5064.         _SGSetChannelPlayFlags
  5065.             move.l              #$00040087,-(sp)
  5066.             moveq               #0,D0
  5067.             dc.w                $A82A
  5068.         EndM
  5069.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5070.         IMPORT_CFM_FUNCTION SGSetChannelPlayFlags
  5071.     ENDIF
  5072.  
  5073. ;
  5074. ; pascal ComponentResult SGGetChannelPlayFlags(SGChannel c, long *playFlags)
  5075. ;
  5076.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5077.         Macro
  5078.         _SGGetChannelPlayFlags
  5079.             move.l              #$00040088,-(sp)
  5080.             moveq               #0,D0
  5081.             dc.w                $A82A
  5082.         EndM
  5083.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5084.         IMPORT_CFM_FUNCTION SGGetChannelPlayFlags
  5085.     ENDIF
  5086.  
  5087. ;
  5088. ; pascal ComponentResult SGSetChannelMaxFrames(SGChannel c, long frameCount)
  5089. ;
  5090.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5091.         Macro
  5092.         _SGSetChannelMaxFrames
  5093.             move.l              #$00040089,-(sp)
  5094.             moveq               #0,D0
  5095.             dc.w                $A82A
  5096.         EndM
  5097.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5098.         IMPORT_CFM_FUNCTION SGSetChannelMaxFrames
  5099.     ENDIF
  5100.  
  5101. ;
  5102. ; pascal ComponentResult SGGetChannelMaxFrames(SGChannel c, long *frameCount)
  5103. ;
  5104.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5105.         Macro
  5106.         _SGGetChannelMaxFrames
  5107.             move.l              #$0004008A,-(sp)
  5108.             moveq               #0,D0
  5109.             dc.w                $A82A
  5110.         EndM
  5111.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5112.         IMPORT_CFM_FUNCTION SGGetChannelMaxFrames
  5113.     ENDIF
  5114.  
  5115. ;
  5116. ; pascal ComponentResult SGSetChannelRefCon(SGChannel c, long refCon)
  5117. ;
  5118.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5119.         Macro
  5120.         _SGSetChannelRefCon
  5121.             move.l              #$0004008B,-(sp)
  5122.             moveq               #0,D0
  5123.             dc.w                $A82A
  5124.         EndM
  5125.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5126.         IMPORT_CFM_FUNCTION SGSetChannelRefCon
  5127.     ENDIF
  5128.  
  5129. ;
  5130. ; pascal ComponentResult SGSetChannelClip(SGChannel c, RgnHandle theClip)
  5131. ;
  5132.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5133.         Macro
  5134.         _SGSetChannelClip
  5135.             move.l              #$0004008C,-(sp)
  5136.             moveq               #0,D0
  5137.             dc.w                $A82A
  5138.         EndM
  5139.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5140.         IMPORT_CFM_FUNCTION SGSetChannelClip
  5141.     ENDIF
  5142.  
  5143. ;
  5144. ; pascal ComponentResult SGGetChannelClip(SGChannel c, RgnHandle *theClip)
  5145. ;
  5146.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5147.         Macro
  5148.         _SGGetChannelClip
  5149.             move.l              #$0004008D,-(sp)
  5150.             moveq               #0,D0
  5151.             dc.w                $A82A
  5152.         EndM
  5153.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5154.         IMPORT_CFM_FUNCTION SGGetChannelClip
  5155.     ENDIF
  5156.  
  5157. ;
  5158. ; pascal ComponentResult SGGetChannelSampleDescription(SGChannel c, Handle sampleDesc)
  5159. ;
  5160.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5161.         Macro
  5162.         _SGGetChannelSampleDescription
  5163.             move.l              #$0004008E,-(sp)
  5164.             moveq               #0,D0
  5165.             dc.w                $A82A
  5166.         EndM
  5167.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5168.         IMPORT_CFM_FUNCTION SGGetChannelSampleDescription
  5169.     ENDIF
  5170.  
  5171. ;
  5172. ; pascal ComponentResult SGGetChannelDeviceList(SGChannel c, long selectionFlags, SGDeviceList *list)
  5173. ;
  5174.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5175.         Macro
  5176.         _SGGetChannelDeviceList
  5177.             move.l              #$0008008F,-(sp)
  5178.             moveq               #0,D0
  5179.             dc.w                $A82A
  5180.         EndM
  5181.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5182.         IMPORT_CFM_FUNCTION SGGetChannelDeviceList
  5183.     ENDIF
  5184.  
  5185. ;
  5186. ; pascal ComponentResult SGSetChannelDevice(SGChannel c, StringPtr name)
  5187. ;
  5188.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5189.         Macro
  5190.         _SGSetChannelDevice
  5191.             move.l              #$00040090,-(sp)
  5192.             moveq               #0,D0
  5193.             dc.w                $A82A
  5194.         EndM
  5195.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5196.         IMPORT_CFM_FUNCTION SGSetChannelDevice
  5197.     ENDIF
  5198.  
  5199. ;
  5200. ; pascal ComponentResult SGSetChannelMatrix(SGChannel c, const MatrixRecord *m)
  5201. ;
  5202.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5203.         Macro
  5204.         _SGSetChannelMatrix
  5205.             move.l              #$00040091,-(sp)
  5206.             moveq               #0,D0
  5207.             dc.w                $A82A
  5208.         EndM
  5209.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5210.         IMPORT_CFM_FUNCTION SGSetChannelMatrix
  5211.     ENDIF
  5212.  
  5213. ;
  5214. ; pascal ComponentResult SGGetChannelMatrix(SGChannel c, MatrixRecord *m)
  5215. ;
  5216.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5217.         Macro
  5218.         _SGGetChannelMatrix
  5219.             move.l              #$00040092,-(sp)
  5220.             moveq               #0,D0
  5221.             dc.w                $A82A
  5222.         EndM
  5223.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5224.         IMPORT_CFM_FUNCTION SGGetChannelMatrix
  5225.     ENDIF
  5226.  
  5227. ;
  5228. ; pascal ComponentResult SGGetChannelTimeScale(SGChannel c, TimeScale *scale)
  5229. ;
  5230.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5231.         Macro
  5232.         _SGGetChannelTimeScale
  5233.             move.l              #$00040093,-(sp)
  5234.             moveq               #0,D0
  5235.             dc.w                $A82A
  5236.         EndM
  5237.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5238.         IMPORT_CFM_FUNCTION SGGetChannelTimeScale
  5239.     ENDIF
  5240.  
  5241. ;
  5242. ; pascal ComponentResult SGChannelPutPicture(SGChannel c)
  5243. ;
  5244.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5245.         Macro
  5246.         _SGChannelPutPicture
  5247.             move.l              #$00000094,-(sp)
  5248.             moveq               #0,D0
  5249.             dc.w                $A82A
  5250.         EndM
  5251.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5252.         IMPORT_CFM_FUNCTION SGChannelPutPicture
  5253.     ENDIF
  5254.  
  5255. ;
  5256. ; pascal ComponentResult SGChannelSetRequestedDataRate(SGChannel c, long bytesPerSecond)
  5257. ;
  5258.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5259.         Macro
  5260.         _SGChannelSetRequestedDataRate
  5261.             move.l              #$00040095,-(sp)
  5262.             moveq               #0,D0
  5263.             dc.w                $A82A
  5264.         EndM
  5265.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5266.         IMPORT_CFM_FUNCTION SGChannelSetRequestedDataRate
  5267.     ENDIF
  5268.  
  5269. ;
  5270. ; pascal ComponentResult SGChannelGetRequestedDataRate(SGChannel c, long *bytesPerSecond)
  5271. ;
  5272.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5273.         Macro
  5274.         _SGChannelGetRequestedDataRate
  5275.             move.l              #$00040096,-(sp)
  5276.             moveq               #0,D0
  5277.             dc.w                $A82A
  5278.         EndM
  5279.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5280.         IMPORT_CFM_FUNCTION SGChannelGetRequestedDataRate
  5281.     ENDIF
  5282.  
  5283. ;
  5284. ; pascal ComponentResult SGChannelSetDataSourceName(SGChannel c, ConstStr255Param name, ScriptCode scriptTag)
  5285. ;
  5286.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5287.         Macro
  5288.         _SGChannelSetDataSourceName
  5289.             move.l              #$00060097,-(sp)
  5290.             moveq               #0,D0
  5291.             dc.w                $A82A
  5292.         EndM
  5293.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5294.         IMPORT_CFM_FUNCTION SGChannelSetDataSourceName
  5295.     ENDIF
  5296.  
  5297. ;
  5298. ; pascal ComponentResult SGChannelGetDataSourceName(SGChannel c, Str255 name, ScriptCode *scriptTag)
  5299. ;
  5300.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5301.         Macro
  5302.         _SGChannelGetDataSourceName
  5303.             move.l              #$00080098,-(sp)
  5304.             moveq               #0,D0
  5305.             dc.w                $A82A
  5306.         EndM
  5307.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5308.         IMPORT_CFM_FUNCTION SGChannelGetDataSourceName
  5309.     ENDIF
  5310.  
  5311. ;    calls from seqGrab to Channel
  5312. ;
  5313.  
  5314. ;
  5315. ; pascal ComponentResult SGInitChannel(SGChannel c, SeqGrabComponent owner)
  5316. ;
  5317.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5318.         Macro
  5319.         _SGInitChannel
  5320.             move.l              #$00040180,-(sp)
  5321.             moveq               #0,D0
  5322.             dc.w                $A82A
  5323.         EndM
  5324.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5325.         IMPORT_CFM_FUNCTION SGInitChannel
  5326.     ENDIF
  5327.  
  5328. ;
  5329. ; pascal ComponentResult SGWriteSamples(SGChannel c, Movie m, AliasHandle theFile)
  5330. ;
  5331.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5332.         Macro
  5333.         _SGWriteSamples
  5334.             move.l              #$00080181,-(sp)
  5335.             moveq               #0,D0
  5336.             dc.w                $A82A
  5337.         EndM
  5338.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5339.         IMPORT_CFM_FUNCTION SGWriteSamples
  5340.     ENDIF
  5341.  
  5342. ;
  5343. ; pascal ComponentResult SGGetDataRate(SGChannel c, long *bytesPerSecond)
  5344. ;
  5345.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5346.         Macro
  5347.         _SGGetDataRate
  5348.             move.l              #$00040182,-(sp)
  5349.             moveq               #0,D0
  5350.             dc.w                $A82A
  5351.         EndM
  5352.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5353.         IMPORT_CFM_FUNCTION SGGetDataRate
  5354.     ENDIF
  5355.  
  5356. ;
  5357. ; pascal ComponentResult SGAlignChannelRect(SGChannel c, Rect *r)
  5358. ;
  5359.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5360.         Macro
  5361.         _SGAlignChannelRect
  5362.             move.l              #$00040183,-(sp)
  5363.             moveq               #0,D0
  5364.             dc.w                $A82A
  5365.         EndM
  5366.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5367.         IMPORT_CFM_FUNCTION SGAlignChannelRect
  5368.     ENDIF
  5369.  
  5370. ;    Dorky dialog panel calls
  5371. ;
  5372.  
  5373. ;
  5374. ; pascal ComponentResult SGPanelGetDitl(SeqGrabComponent s, Handle *ditl)
  5375. ;
  5376.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5377.         Macro
  5378.         _SGPanelGetDitl
  5379.             move.l              #$00040200,-(sp)
  5380.             moveq               #0,D0
  5381.             dc.w                $A82A
  5382.         EndM
  5383.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5384.         IMPORT_CFM_FUNCTION SGPanelGetDitl
  5385.     ENDIF
  5386.  
  5387. ;
  5388. ; pascal ComponentResult SGPanelGetTitle(SeqGrabComponent s, Str255 title)
  5389. ;
  5390.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5391.         Macro
  5392.         _SGPanelGetTitle
  5393.             move.l              #$00040201,-(sp)
  5394.             moveq               #0,D0
  5395.             dc.w                $A82A
  5396.         EndM
  5397.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5398.         IMPORT_CFM_FUNCTION SGPanelGetTitle
  5399.     ENDIF
  5400.  
  5401. ;
  5402. ; pascal ComponentResult SGPanelCanRun(SeqGrabComponent s, SGChannel c)
  5403. ;
  5404.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5405.         Macro
  5406.         _SGPanelCanRun
  5407.             move.l              #$00040202,-(sp)
  5408.             moveq               #0,D0
  5409.             dc.w                $A82A
  5410.         EndM
  5411.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5412.         IMPORT_CFM_FUNCTION SGPanelCanRun
  5413.     ENDIF
  5414.  
  5415. ;
  5416. ; pascal ComponentResult SGPanelInstall(SeqGrabComponent s, SGChannel c, DialogPtr d, short itemOffset)
  5417. ;
  5418.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5419.         Macro
  5420.         _SGPanelInstall
  5421.             move.l              #$000A0203,-(sp)
  5422.             moveq               #0,D0
  5423.             dc.w                $A82A
  5424.         EndM
  5425.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5426.         IMPORT_CFM_FUNCTION SGPanelInstall
  5427.     ENDIF
  5428.  
  5429. ;
  5430. ; pascal ComponentResult SGPanelEvent(SeqGrabComponent s, SGChannel c, DialogPtr d, short itemOffset, const EventRecord *theEvent, short *itemHit, Boolean *handled)
  5431. ;
  5432.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5433.         Macro
  5434.         _SGPanelEvent
  5435.             move.l              #$00160204,-(sp)
  5436.             moveq               #0,D0
  5437.             dc.w                $A82A
  5438.         EndM
  5439.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5440.         IMPORT_CFM_FUNCTION SGPanelEvent
  5441.     ENDIF
  5442.  
  5443. ;
  5444. ; pascal ComponentResult SGPanelItem(SeqGrabComponent s, SGChannel c, DialogPtr d, short itemOffset, short itemNum)
  5445. ;
  5446.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5447.         Macro
  5448.         _SGPanelItem
  5449.             move.l              #$000C0205,-(sp)
  5450.             moveq               #0,D0
  5451.             dc.w                $A82A
  5452.         EndM
  5453.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5454.         IMPORT_CFM_FUNCTION SGPanelItem
  5455.     ENDIF
  5456.  
  5457. ;
  5458. ; pascal ComponentResult SGPanelRemove(SeqGrabComponent s, SGChannel c, DialogPtr d, short itemOffset)
  5459. ;
  5460.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5461.         Macro
  5462.         _SGPanelRemove
  5463.             move.l              #$000A0206,-(sp)
  5464.             moveq               #0,D0
  5465.             dc.w                $A82A
  5466.         EndM
  5467.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5468.         IMPORT_CFM_FUNCTION SGPanelRemove
  5469.     ENDIF
  5470.  
  5471. ;
  5472. ; pascal ComponentResult SGPanelSetGrabber(SeqGrabComponent s, SeqGrabComponent sg)
  5473. ;
  5474.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5475.         Macro
  5476.         _SGPanelSetGrabber
  5477.             move.l              #$00040207,-(sp)
  5478.             moveq               #0,D0
  5479.             dc.w                $A82A
  5480.         EndM
  5481.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5482.         IMPORT_CFM_FUNCTION SGPanelSetGrabber
  5483.     ENDIF
  5484.  
  5485. ;
  5486. ; pascal ComponentResult SGPanelSetResFile(SeqGrabComponent s, short resRef)
  5487. ;
  5488.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5489.         Macro
  5490.         _SGPanelSetResFile
  5491.             move.l              #$00020208,-(sp)
  5492.             moveq               #0,D0
  5493.             dc.w                $A82A
  5494.         EndM
  5495.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5496.         IMPORT_CFM_FUNCTION SGPanelSetResFile
  5497.     ENDIF
  5498.  
  5499. ;
  5500. ; pascal ComponentResult SGPanelGetSettings(SeqGrabComponent s, SGChannel c, UserData *ud, long flags)
  5501. ;
  5502.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5503.         Macro
  5504.         _SGPanelGetSettings
  5505.             move.l              #$000C0209,-(sp)
  5506.             moveq               #0,D0
  5507.             dc.w                $A82A
  5508.         EndM
  5509.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5510.         IMPORT_CFM_FUNCTION SGPanelGetSettings
  5511.     ENDIF
  5512.  
  5513. ;
  5514. ; pascal ComponentResult SGPanelSetSettings(SeqGrabComponent s, SGChannel c, UserData ud, long flags)
  5515. ;
  5516.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5517.         Macro
  5518.         _SGPanelSetSettings
  5519.             move.l              #$000C020A,-(sp)
  5520.             moveq               #0,D0
  5521.             dc.w                $A82A
  5522.         EndM
  5523.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5524.         IMPORT_CFM_FUNCTION SGPanelSetSettings
  5525.     ENDIF
  5526.  
  5527. ;
  5528. ; pascal ComponentResult SGPanelValidateInput(SeqGrabComponent s, Boolean *ok)
  5529. ;
  5530.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5531.         Macro
  5532.         _SGPanelValidateInput
  5533.             move.l              #$0004020B,-(sp)
  5534.             moveq               #0,D0
  5535.             dc.w                $A82A
  5536.         EndM
  5537.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5538.         IMPORT_CFM_FUNCTION SGPanelValidateInput
  5539.     ENDIF
  5540.  
  5541. ;
  5542. ; pascal ComponentResult SGPanelSetEventFilter(SeqGrabComponent s, SGModalFilterUPP proc, long refCon)
  5543. ;
  5544.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5545.         Macro
  5546.         _SGPanelSetEventFilter
  5547.             move.l              #$0008020C,-(sp)
  5548.             moveq               #0,D0
  5549.             dc.w                $A82A
  5550.         EndM
  5551.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5552.         IMPORT_CFM_FUNCTION SGPanelSetEventFilter
  5553.     ENDIF
  5554.  
  5555.  
  5556. ; ** Sequence Grab VIDEO CHANNEL Component Stuff **
  5557. ;    Video stuff
  5558. ;
  5559.  
  5560. SGCompressInfo            RECORD 0
  5561. buffer                     ds.l    1                ; offset: $0 (0)
  5562. bufferSize                 ds.l    1                ; offset: $4 (4)
  5563. similarity                 ds.b    1                ; offset: $8 (8)
  5564. reserved                 ds.b    1                ; offset: $9 (9)
  5565. sizeof                     EQU *                    ; size:   $A (10)
  5566.                         ENDR
  5567. VideoBottles            RECORD 0
  5568. procCount                 ds.w    1                ; offset: $0 (0)
  5569. grabProc                 ds.l    1                ; offset: $2 (2)
  5570. grabCompleteProc         ds.l    1                ; offset: $6 (6)
  5571. displayProc                 ds.l    1                ; offset: $A (10)
  5572. compressProc             ds.l    1                ; offset: $E (14)
  5573. compressCompleteProc     ds.l    1                ; offset: $12 (18)
  5574. addFrameProc             ds.l    1                ; offset: $16 (22)
  5575. transferFrameProc         ds.l    1                ; offset: $1A (26)
  5576. grabCompressCompleteProc  ds.l    1                ; offset: $1E (30)
  5577. displayCompressProc         ds.l    1                ; offset: $22 (34)
  5578. sizeof                     EQU *                    ; size:   $26 (38)
  5579.                         ENDR
  5580. ;
  5581. ; pascal ComponentResult SGGetSrcVideoBounds(SGChannel c, Rect *r)
  5582. ;
  5583.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5584.         Macro
  5585.         _SGGetSrcVideoBounds
  5586.             move.l              #$00040100,-(sp)
  5587.             moveq               #0,D0
  5588.             dc.w                $A82A
  5589.         EndM
  5590.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5591.         IMPORT_CFM_FUNCTION SGGetSrcVideoBounds
  5592.     ENDIF
  5593.  
  5594. ;
  5595. ; pascal ComponentResult SGSetVideoRect(SGChannel c, const Rect *r)
  5596. ;
  5597.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5598.         Macro
  5599.         _SGSetVideoRect
  5600.             move.l              #$00040101,-(sp)
  5601.             moveq               #0,D0
  5602.             dc.w                $A82A
  5603.         EndM
  5604.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5605.         IMPORT_CFM_FUNCTION SGSetVideoRect
  5606.     ENDIF
  5607.  
  5608. ;
  5609. ; pascal ComponentResult SGGetVideoRect(SGChannel c, Rect *r)
  5610. ;
  5611.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5612.         Macro
  5613.         _SGGetVideoRect
  5614.             move.l              #$00040102,-(sp)
  5615.             moveq               #0,D0
  5616.             dc.w                $A82A
  5617.         EndM
  5618.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5619.         IMPORT_CFM_FUNCTION SGGetVideoRect
  5620.     ENDIF
  5621.  
  5622. ;
  5623. ; pascal ComponentResult SGGetVideoCompressorType(SGChannel c, OSType *compressorType)
  5624. ;
  5625.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5626.         Macro
  5627.         _SGGetVideoCompressorType
  5628.             move.l              #$00040103,-(sp)
  5629.             moveq               #0,D0
  5630.             dc.w                $A82A
  5631.         EndM
  5632.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5633.         IMPORT_CFM_FUNCTION SGGetVideoCompressorType
  5634.     ENDIF
  5635.  
  5636. ;
  5637. ; pascal ComponentResult SGSetVideoCompressorType(SGChannel c, OSType compressorType)
  5638. ;
  5639.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5640.         Macro
  5641.         _SGSetVideoCompressorType
  5642.             move.l              #$00040104,-(sp)
  5643.             moveq               #0,D0
  5644.             dc.w                $A82A
  5645.         EndM
  5646.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5647.         IMPORT_CFM_FUNCTION SGSetVideoCompressorType
  5648.     ENDIF
  5649.  
  5650. ;
  5651. ; pascal ComponentResult SGSetVideoCompressor(SGChannel c, short depth, CompressorComponent compressor, CodecQ spatialQuality, CodecQ temporalQuality, long keyFrameRate)
  5652. ;
  5653.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5654.         Macro
  5655.         _SGSetVideoCompressor
  5656.             move.l              #$00120105,-(sp)
  5657.             moveq               #0,D0
  5658.             dc.w                $A82A
  5659.         EndM
  5660.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5661.         IMPORT_CFM_FUNCTION SGSetVideoCompressor
  5662.     ENDIF
  5663.  
  5664. ;
  5665. ; pascal ComponentResult SGGetVideoCompressor(SGChannel c, short *depth, CompressorComponent *compressor, CodecQ *spatialQuality, CodecQ *temporalQuality, long *keyFrameRate)
  5666. ;
  5667.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5668.         Macro
  5669.         _SGGetVideoCompressor
  5670.             move.l              #$00140106,-(sp)
  5671.             moveq               #0,D0
  5672.             dc.w                $A82A
  5673.         EndM
  5674.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5675.         IMPORT_CFM_FUNCTION SGGetVideoCompressor
  5676.     ENDIF
  5677.  
  5678. ;
  5679. ; pascal ComponentInstance SGGetVideoDigitizerComponent(SGChannel c)
  5680. ;
  5681.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5682.         Macro
  5683.         _SGGetVideoDigitizerComponent
  5684.             move.l              #$00000107,-(sp)
  5685.             moveq               #0,D0
  5686.             dc.w                $A82A
  5687.         EndM
  5688.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5689.         IMPORT_CFM_FUNCTION SGGetVideoDigitizerComponent
  5690.     ENDIF
  5691.  
  5692. ;
  5693. ; pascal ComponentResult SGSetVideoDigitizerComponent(SGChannel c, ComponentInstance vdig)
  5694. ;
  5695.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5696.         Macro
  5697.         _SGSetVideoDigitizerComponent
  5698.             move.l              #$00040108,-(sp)
  5699.             moveq               #0,D0
  5700.             dc.w                $A82A
  5701.         EndM
  5702.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5703.         IMPORT_CFM_FUNCTION SGSetVideoDigitizerComponent
  5704.     ENDIF
  5705.  
  5706. ;
  5707. ; pascal ComponentResult SGVideoDigitizerChanged(SGChannel c)
  5708. ;
  5709.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5710.         Macro
  5711.         _SGVideoDigitizerChanged
  5712.             move.l              #$00000109,-(sp)
  5713.             moveq               #0,D0
  5714.             dc.w                $A82A
  5715.         EndM
  5716.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5717.         IMPORT_CFM_FUNCTION SGVideoDigitizerChanged
  5718.     ENDIF
  5719.  
  5720. ;
  5721. ; pascal ComponentResult SGSetVideoBottlenecks(SGChannel c, VideoBottles *vb)
  5722. ;
  5723.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5724.         Macro
  5725.         _SGSetVideoBottlenecks
  5726.             move.l              #$0004010A,-(sp)
  5727.             moveq               #0,D0
  5728.             dc.w                $A82A
  5729.         EndM
  5730.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5731.         IMPORT_CFM_FUNCTION SGSetVideoBottlenecks
  5732.     ENDIF
  5733.  
  5734. ;
  5735. ; pascal ComponentResult SGGetVideoBottlenecks(SGChannel c, VideoBottles *vb)
  5736. ;
  5737.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5738.         Macro
  5739.         _SGGetVideoBottlenecks
  5740.             move.l              #$0004010B,-(sp)
  5741.             moveq               #0,D0
  5742.             dc.w                $A82A
  5743.         EndM
  5744.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5745.         IMPORT_CFM_FUNCTION SGGetVideoBottlenecks
  5746.     ENDIF
  5747.  
  5748. ;
  5749. ; pascal ComponentResult SGGrabFrame(SGChannel c, short bufferNum)
  5750. ;
  5751.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5752.         Macro
  5753.         _SGGrabFrame
  5754.             move.l              #$0002010C,-(sp)
  5755.             moveq               #0,D0
  5756.             dc.w                $A82A
  5757.         EndM
  5758.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5759.         IMPORT_CFM_FUNCTION SGGrabFrame
  5760.     ENDIF
  5761.  
  5762. ;
  5763. ; pascal ComponentResult SGGrabFrameComplete(SGChannel c, short bufferNum, Boolean *done)
  5764. ;
  5765.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5766.         Macro
  5767.         _SGGrabFrameComplete
  5768.             move.l              #$0006010D,-(sp)
  5769.             moveq               #0,D0
  5770.             dc.w                $A82A
  5771.         EndM
  5772.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5773.         IMPORT_CFM_FUNCTION SGGrabFrameComplete
  5774.     ENDIF
  5775.  
  5776. ;
  5777. ; pascal ComponentResult SGDisplayFrame(SGChannel c, short bufferNum, const MatrixRecord *mp, RgnHandle clipRgn)
  5778. ;
  5779.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5780.         Macro
  5781.         _SGDisplayFrame
  5782.             move.l              #$000A010E,-(sp)
  5783.             moveq               #0,D0
  5784.             dc.w                $A82A
  5785.         EndM
  5786.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5787.         IMPORT_CFM_FUNCTION SGDisplayFrame
  5788.     ENDIF
  5789.  
  5790. ;
  5791. ; pascal ComponentResult SGCompressFrame(SGChannel c, short bufferNum)
  5792. ;
  5793.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5794.         Macro
  5795.         _SGCompressFrame
  5796.             move.l              #$0002010F,-(sp)
  5797.             moveq               #0,D0
  5798.             dc.w                $A82A
  5799.         EndM
  5800.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5801.         IMPORT_CFM_FUNCTION SGCompressFrame
  5802.     ENDIF
  5803.  
  5804. ;
  5805. ; pascal ComponentResult SGCompressFrameComplete(SGChannel c, short bufferNum, Boolean *done, SGCompressInfo *ci)
  5806. ;
  5807.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5808.         Macro
  5809.         _SGCompressFrameComplete
  5810.             move.l              #$000A0110,-(sp)
  5811.             moveq               #0,D0
  5812.             dc.w                $A82A
  5813.         EndM
  5814.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5815.         IMPORT_CFM_FUNCTION SGCompressFrameComplete
  5816.     ENDIF
  5817.  
  5818. ;
  5819. ; pascal ComponentResult SGAddFrame(SGChannel c, short bufferNum, TimeValue atTime, TimeScale scale, const SGCompressInfo *ci)
  5820. ;
  5821.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5822.         Macro
  5823.         _SGAddFrame
  5824.             move.l              #$000E0111,-(sp)
  5825.             moveq               #0,D0
  5826.             dc.w                $A82A
  5827.         EndM
  5828.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5829.         IMPORT_CFM_FUNCTION SGAddFrame
  5830.     ENDIF
  5831.  
  5832. ;
  5833. ; pascal ComponentResult SGTransferFrameForCompress(SGChannel c, short bufferNum, const MatrixRecord *mp, RgnHandle clipRgn)
  5834. ;
  5835.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5836.         Macro
  5837.         _SGTransferFrameForCompress
  5838.             move.l              #$000A0112,-(sp)
  5839.             moveq               #0,D0
  5840.             dc.w                $A82A
  5841.         EndM
  5842.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5843.         IMPORT_CFM_FUNCTION SGTransferFrameForCompress
  5844.     ENDIF
  5845.  
  5846. ;
  5847. ; pascal ComponentResult SGSetCompressBuffer(SGChannel c, short depth, const Rect *compressSize)
  5848. ;
  5849.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5850.         Macro
  5851.         _SGSetCompressBuffer
  5852.             move.l              #$00060113,-(sp)
  5853.             moveq               #0,D0
  5854.             dc.w                $A82A
  5855.         EndM
  5856.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5857.         IMPORT_CFM_FUNCTION SGSetCompressBuffer
  5858.     ENDIF
  5859.  
  5860. ;
  5861. ; pascal ComponentResult SGGetCompressBuffer(SGChannel c, short *depth, Rect *compressSize)
  5862. ;
  5863.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5864.         Macro
  5865.         _SGGetCompressBuffer
  5866.             move.l              #$00080114,-(sp)
  5867.             moveq               #0,D0
  5868.             dc.w                $A82A
  5869.         EndM
  5870.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5871.         IMPORT_CFM_FUNCTION SGGetCompressBuffer
  5872.     ENDIF
  5873.  
  5874. ;
  5875. ; pascal ComponentResult SGGetBufferInfo(SGChannel c, short bufferNum, PixMapHandle *bufferPM, Rect *bufferRect, GWorldPtr *compressBuffer, Rect *compressBufferRect)
  5876. ;
  5877.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5878.         Macro
  5879.         _SGGetBufferInfo
  5880.             move.l              #$00120115,-(sp)
  5881.             moveq               #0,D0
  5882.             dc.w                $A82A
  5883.         EndM
  5884.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5885.         IMPORT_CFM_FUNCTION SGGetBufferInfo
  5886.     ENDIF
  5887.  
  5888. ;
  5889. ; pascal ComponentResult SGSetUseScreenBuffer(SGChannel c, Boolean useScreenBuffer)
  5890. ;
  5891.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5892.         Macro
  5893.         _SGSetUseScreenBuffer
  5894.             move.l              #$00020116,-(sp)
  5895.             moveq               #0,D0
  5896.             dc.w                $A82A
  5897.         EndM
  5898.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5899.         IMPORT_CFM_FUNCTION SGSetUseScreenBuffer
  5900.     ENDIF
  5901.  
  5902. ;
  5903. ; pascal ComponentResult SGGetUseScreenBuffer(SGChannel c, Boolean *useScreenBuffer)
  5904. ;
  5905.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5906.         Macro
  5907.         _SGGetUseScreenBuffer
  5908.             move.l              #$00040117,-(sp)
  5909.             moveq               #0,D0
  5910.             dc.w                $A82A
  5911.         EndM
  5912.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5913.         IMPORT_CFM_FUNCTION SGGetUseScreenBuffer
  5914.     ENDIF
  5915.  
  5916. ;
  5917. ; pascal ComponentResult SGGrabCompressComplete(SGChannel c, Boolean *done, SGCompressInfo *ci, TimeRecord *tr)
  5918. ;
  5919.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5920.         Macro
  5921.         _SGGrabCompressComplete
  5922.             move.l              #$000C0118,-(sp)
  5923.             moveq               #0,D0
  5924.             dc.w                $A82A
  5925.         EndM
  5926.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5927.         IMPORT_CFM_FUNCTION SGGrabCompressComplete
  5928.     ENDIF
  5929.  
  5930. ;
  5931. ; pascal ComponentResult SGDisplayCompress(SGChannel c, Ptr dataPtr, ImageDescriptionHandle desc, MatrixRecord *mp, RgnHandle clipRgn)
  5932. ;
  5933.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5934.         Macro
  5935.         _SGDisplayCompress
  5936.             move.l              #$00100119,-(sp)
  5937.             moveq               #0,D0
  5938.             dc.w                $A82A
  5939.         EndM
  5940.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5941.         IMPORT_CFM_FUNCTION SGDisplayCompress
  5942.     ENDIF
  5943.  
  5944. ;
  5945. ; pascal ComponentResult SGSetFrameRate(SGChannel c, Fixed frameRate)
  5946. ;
  5947.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5948.         Macro
  5949.         _SGSetFrameRate
  5950.             move.l              #$0004011A,-(sp)
  5951.             moveq               #0,D0
  5952.             dc.w                $A82A
  5953.         EndM
  5954.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5955.         IMPORT_CFM_FUNCTION SGSetFrameRate
  5956.     ENDIF
  5957.  
  5958. ;
  5959. ; pascal ComponentResult SGGetFrameRate(SGChannel c, Fixed *frameRate)
  5960. ;
  5961.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5962.         Macro
  5963.         _SGGetFrameRate
  5964.             move.l              #$0004011B,-(sp)
  5965.             moveq               #0,D0
  5966.             dc.w                $A82A
  5967.         EndM
  5968.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5969.         IMPORT_CFM_FUNCTION SGGetFrameRate
  5970.     ENDIF
  5971.  
  5972.  
  5973. ;
  5974. ; pascal ComponentResult SGSetPreferredPacketSize(SGChannel c, long preferredPacketSizeInBytes)
  5975. ;
  5976.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5977.         Macro
  5978.         _SGSetPreferredPacketSize
  5979.             move.l              #$00040121,-(sp)
  5980.             moveq               #0,D0
  5981.             dc.w                $A82A
  5982.         EndM
  5983.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5984.         IMPORT_CFM_FUNCTION SGSetPreferredPacketSize
  5985.     ENDIF
  5986.  
  5987. ;
  5988. ; pascal ComponentResult SGGetPreferredPacketSize(SGChannel c, long *preferredPacketSizeInBytes)
  5989. ;
  5990.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  5991.         Macro
  5992.         _SGGetPreferredPacketSize
  5993.             move.l              #$00040122,-(sp)
  5994.             moveq               #0,D0
  5995.             dc.w                $A82A
  5996.         EndM
  5997.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  5998.         IMPORT_CFM_FUNCTION SGGetPreferredPacketSize
  5999.     ENDIF
  6000.  
  6001. ;
  6002. ; pascal ComponentResult SGSetUserVideoCompressorList(SGChannel c, Handle compressorTypes)
  6003. ;
  6004.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6005.         Macro
  6006.         _SGSetUserVideoCompressorList
  6007.             move.l              #$00040123,-(sp)
  6008.             moveq               #0,D0
  6009.             dc.w                $A82A
  6010.         EndM
  6011.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6012.         IMPORT_CFM_FUNCTION SGSetUserVideoCompressorList
  6013.     ENDIF
  6014.  
  6015. ;
  6016. ; pascal ComponentResult SGGetUserVideoCompressorList(SGChannel c, Handle *compressorTypes)
  6017. ;
  6018.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6019.         Macro
  6020.         _SGGetUserVideoCompressorList
  6021.             move.l              #$00040124,-(sp)
  6022.             moveq               #0,D0
  6023.             dc.w                $A82A
  6024.         EndM
  6025.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6026.         IMPORT_CFM_FUNCTION SGGetUserVideoCompressorList
  6027.     ENDIF
  6028.  
  6029. ; ** Sequence Grab SOUND CHANNEL Component Stuff **
  6030.  
  6031. ;    Sound stuff
  6032. ;
  6033.  
  6034. ;
  6035. ; pascal ComponentResult SGSetSoundInputDriver(SGChannel c, ConstStr255Param driverName)
  6036. ;
  6037.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6038.         Macro
  6039.         _SGSetSoundInputDriver
  6040.             move.l              #$00040100,-(sp)
  6041.             moveq               #0,D0
  6042.             dc.w                $A82A
  6043.         EndM
  6044.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6045.         IMPORT_CFM_FUNCTION SGSetSoundInputDriver
  6046.     ENDIF
  6047.  
  6048. ;
  6049. ; pascal long SGGetSoundInputDriver(SGChannel c)
  6050. ;
  6051.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6052.         Macro
  6053.         _SGGetSoundInputDriver
  6054.             move.l              #$00000101,-(sp)
  6055.             moveq               #0,D0
  6056.             dc.w                $A82A
  6057.         EndM
  6058.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6059.         IMPORT_CFM_FUNCTION SGGetSoundInputDriver
  6060.     ENDIF
  6061.  
  6062. ;
  6063. ; pascal ComponentResult SGSoundInputDriverChanged(SGChannel c)
  6064. ;
  6065.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6066.         Macro
  6067.         _SGSoundInputDriverChanged
  6068.             move.l              #$00000102,-(sp)
  6069.             moveq               #0,D0
  6070.             dc.w                $A82A
  6071.         EndM
  6072.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6073.         IMPORT_CFM_FUNCTION SGSoundInputDriverChanged
  6074.     ENDIF
  6075.  
  6076. ;
  6077. ; pascal ComponentResult SGSetSoundRecordChunkSize(SGChannel c, long seconds)
  6078. ;
  6079.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6080.         Macro
  6081.         _SGSetSoundRecordChunkSize
  6082.             move.l              #$00040103,-(sp)
  6083.             moveq               #0,D0
  6084.             dc.w                $A82A
  6085.         EndM
  6086.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6087.         IMPORT_CFM_FUNCTION SGSetSoundRecordChunkSize
  6088.     ENDIF
  6089.  
  6090. ;
  6091. ; pascal long SGGetSoundRecordChunkSize(SGChannel c)
  6092. ;
  6093.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6094.         Macro
  6095.         _SGGetSoundRecordChunkSize
  6096.             move.l              #$00000104,-(sp)
  6097.             moveq               #0,D0
  6098.             dc.w                $A82A
  6099.         EndM
  6100.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6101.         IMPORT_CFM_FUNCTION SGGetSoundRecordChunkSize
  6102.     ENDIF
  6103.  
  6104. ;
  6105. ; pascal ComponentResult SGSetSoundInputRate(SGChannel c, Fixed rate)
  6106. ;
  6107.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6108.         Macro
  6109.         _SGSetSoundInputRate
  6110.             move.l              #$00040105,-(sp)
  6111.             moveq               #0,D0
  6112.             dc.w                $A82A
  6113.         EndM
  6114.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6115.         IMPORT_CFM_FUNCTION SGSetSoundInputRate
  6116.     ENDIF
  6117.  
  6118. ;
  6119. ; pascal Fixed SGGetSoundInputRate(SGChannel c)
  6120. ;
  6121.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6122.         Macro
  6123.         _SGGetSoundInputRate
  6124.             move.l              #$00000106,-(sp)
  6125.             moveq               #0,D0
  6126.             dc.w                $A82A
  6127.         EndM
  6128.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6129.         IMPORT_CFM_FUNCTION SGGetSoundInputRate
  6130.     ENDIF
  6131.  
  6132. ;
  6133. ; pascal ComponentResult SGSetSoundInputParameters(SGChannel c, short sampleSize, short numChannels, OSType compressionType)
  6134. ;
  6135.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6136.         Macro
  6137.         _SGSetSoundInputParameters
  6138.             move.l              #$00080107,-(sp)
  6139.             moveq               #0,D0
  6140.             dc.w                $A82A
  6141.         EndM
  6142.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6143.         IMPORT_CFM_FUNCTION SGSetSoundInputParameters
  6144.     ENDIF
  6145.  
  6146. ;
  6147. ; pascal ComponentResult SGGetSoundInputParameters(SGChannel c, short *sampleSize, short *numChannels, OSType *compressionType)
  6148. ;
  6149.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6150.         Macro
  6151.         _SGGetSoundInputParameters
  6152.             move.l              #$000C0108,-(sp)
  6153.             moveq               #0,D0
  6154.             dc.w                $A82A
  6155.         EndM
  6156.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6157.         IMPORT_CFM_FUNCTION SGGetSoundInputParameters
  6158.     ENDIF
  6159.  
  6160. ;
  6161. ; pascal ComponentResult SGSetAdditionalSoundRates(SGChannel c, Handle rates)
  6162. ;
  6163.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6164.         Macro
  6165.         _SGSetAdditionalSoundRates
  6166.             move.l              #$00040109,-(sp)
  6167.             moveq               #0,D0
  6168.             dc.w                $A82A
  6169.         EndM
  6170.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6171.         IMPORT_CFM_FUNCTION SGSetAdditionalSoundRates
  6172.     ENDIF
  6173.  
  6174. ;
  6175. ; pascal ComponentResult SGGetAdditionalSoundRates(SGChannel c, Handle *rates)
  6176. ;
  6177.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6178.         Macro
  6179.         _SGGetAdditionalSoundRates
  6180.             move.l              #$0004010A,-(sp)
  6181.             moveq               #0,D0
  6182.             dc.w                $A82A
  6183.         EndM
  6184.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6185.         IMPORT_CFM_FUNCTION SGGetAdditionalSoundRates
  6186.     ENDIF
  6187.  
  6188. ;    Text stuff
  6189. ;
  6190.  
  6191. ;
  6192. ; pascal ComponentResult SGSetFontName(SGChannel c, StringPtr pstr)
  6193. ;
  6194.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6195.         Macro
  6196.         _SGSetFontName
  6197.             move.l              #$00040100,-(sp)
  6198.             moveq               #0,D0
  6199.             dc.w                $A82A
  6200.         EndM
  6201.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6202.         IMPORT_CFM_FUNCTION SGSetFontName
  6203.     ENDIF
  6204.  
  6205. ;
  6206. ; pascal ComponentResult SGSetFontSize(SGChannel c, short fontSize)
  6207. ;
  6208.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6209.         Macro
  6210.         _SGSetFontSize
  6211.             move.l              #$00020101,-(sp)
  6212.             moveq               #0,D0
  6213.             dc.w                $A82A
  6214.         EndM
  6215.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6216.         IMPORT_CFM_FUNCTION SGSetFontSize
  6217.     ENDIF
  6218.  
  6219. ;
  6220. ; pascal ComponentResult SGSetTextForeColor(SGChannel c, RGBColor *theColor)
  6221. ;
  6222.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6223.         Macro
  6224.         _SGSetTextForeColor
  6225.             move.l              #$00040102,-(sp)
  6226.             moveq               #0,D0
  6227.             dc.w                $A82A
  6228.         EndM
  6229.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6230.         IMPORT_CFM_FUNCTION SGSetTextForeColor
  6231.     ENDIF
  6232.  
  6233. ;
  6234. ; pascal ComponentResult SGSetTextBackColor(SGChannel c, RGBColor *theColor)
  6235. ;
  6236.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6237.         Macro
  6238.         _SGSetTextBackColor
  6239.             move.l              #$00040103,-(sp)
  6240.             moveq               #0,D0
  6241.             dc.w                $A82A
  6242.         EndM
  6243.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6244.         IMPORT_CFM_FUNCTION SGSetTextBackColor
  6245.     ENDIF
  6246.  
  6247. ;
  6248. ; pascal ComponentResult SGSetJustification(SGChannel c, short just)
  6249. ;
  6250.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6251.         Macro
  6252.         _SGSetJustification
  6253.             move.l              #$00020104,-(sp)
  6254.             moveq               #0,D0
  6255.             dc.w                $A82A
  6256.         EndM
  6257.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6258.         IMPORT_CFM_FUNCTION SGSetJustification
  6259.     ENDIF
  6260.  
  6261. ;
  6262. ; pascal ComponentResult SGGetTextReturnToSpaceValue(SGChannel c, short *rettospace)
  6263. ;
  6264.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6265.         Macro
  6266.         _SGGetTextReturnToSpaceValue
  6267.             move.l              #$00040105,-(sp)
  6268.             moveq               #0,D0
  6269.             dc.w                $A82A
  6270.         EndM
  6271.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6272.         IMPORT_CFM_FUNCTION SGGetTextReturnToSpaceValue
  6273.     ENDIF
  6274.  
  6275. ;
  6276. ; pascal ComponentResult SGSetTextReturnToSpaceValue(SGChannel c, short rettospace)
  6277. ;
  6278.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6279.         Macro
  6280.         _SGSetTextReturnToSpaceValue
  6281.             move.l              #$00020106,-(sp)
  6282.             moveq               #0,D0
  6283.             dc.w                $A82A
  6284.         EndM
  6285.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6286.         IMPORT_CFM_FUNCTION SGSetTextReturnToSpaceValue
  6287.     ENDIF
  6288.  
  6289. ;    Music stuff
  6290. ;
  6291.  
  6292. ;
  6293. ; pascal ComponentResult SGGetInstrument(SGChannel c, ToneDescription *td)
  6294. ;
  6295.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6296.         Macro
  6297.         _SGGetInstrument
  6298.             move.l              #$00040100,-(sp)
  6299.             moveq               #0,D0
  6300.             dc.w                $A82A
  6301.         EndM
  6302.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6303.         IMPORT_CFM_FUNCTION SGGetInstrument
  6304.     ENDIF
  6305.  
  6306. ;
  6307. ; pascal ComponentResult SGSetInstrument(SGChannel c, ToneDescription *td)
  6308. ;
  6309.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6310.         Macro
  6311.         _SGSetInstrument
  6312.             move.l              #$00040101,-(sp)
  6313.             moveq               #0,D0
  6314.             dc.w                $A82A
  6315.         EndM
  6316.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6317.         IMPORT_CFM_FUNCTION SGSetInstrument
  6318.     ENDIF
  6319.  
  6320.  
  6321.  
  6322. sgChannelAtom                    EQU        'chan'
  6323. sgChannelSettingsAtom            EQU        'ctom'
  6324. sgChannelDescription            EQU        'cdsc'
  6325. sgChannelSettings                EQU        'cset'
  6326.  
  6327. sgDeviceNameType                EQU        'name'
  6328. sgUsageType                        EQU        'use '
  6329. sgPlayFlagsType                    EQU        'plyf'
  6330. sgClipType                        EQU        'clip'
  6331. sgMatrixType                    EQU        'mtrx'
  6332. sgVolumeType                    EQU        'volu'
  6333.  
  6334. sgPanelSettingsAtom                EQU        'ptom'
  6335. sgPanelDescription                EQU        'pdsc'
  6336. sgPanelSettings                    EQU        'pset'
  6337.  
  6338. sgcSoundCompressionType            EQU        'scmp'
  6339. sgcSoundSampleRateType            EQU        'srat'
  6340. sgcSoundChannelCountType        EQU        'schn'
  6341. sgcSoundSampleSizeType            EQU        'ssiz'
  6342. sgcSoundInputType                EQU        'sinp'
  6343. sgcSoundGainType                EQU        'gain'
  6344.  
  6345. sgcVideoHueType                    EQU        'hue '
  6346. sgcVideoSaturationType            EQU        'satr'
  6347. sgcVideoContrastType            EQU        'trst'
  6348. sgcVideoSharpnessType            EQU        'shrp'
  6349. sgcVideoBrigtnessType            EQU        'brit'
  6350. sgcVideoBlackLevelType            EQU        'blkl'
  6351. sgcVideoWhiteLevelType            EQU        'whtl'
  6352. sgcVideoInputType                EQU        'vinp'
  6353. sgcVideoFormatType                EQU        'vstd'
  6354. sgcVideoFilterType                EQU        'vflt'
  6355. sgcVideoRectType                EQU        'vrct'
  6356. sgcVideoDigitizerType            EQU        'vdig'
  6357.  
  6358.  
  6359.  
  6360. ; typedef ComponentInstance             QTVideoOutputComponent
  6361.  
  6362. ;  Component type and subtype enumerations
  6363.  
  6364. QTVideoOutputComponentType        EQU        'vout'
  6365. QTVideoOutputComponentBaseSubType EQU    'base'
  6366.  
  6367. ;  QTVideoOutput Component flags
  6368.  
  6369.  
  6370. kQTVideoOutputDontDisplayToUser    EQU        $00000001
  6371. ;  Display mode atom types
  6372.  
  6373.  
  6374. kQTVODisplayModeItem            EQU        'qdmi'
  6375. kQTVODimensions                    EQU        'dimn'                ; atom contains two longs - pixel count - width, height
  6376. kQTVOResolution                    EQU        'resl'                ; atom contains two Fixed - hRes, vRes in dpi
  6377. kQTVORefreshRate                EQU        'refr'                ; atom contains one Fixed - refresh rate in Hz
  6378. kQTVOPixelType                    EQU        'pixl'                ; atom contains one OSType - pixel format of mode
  6379. kQTVOName                        EQU        'name'                ; atom contains string (no length byte) - name of modefor display to user
  6380. kQTVODecompressors                EQU        'deco'                ; atom contains other atoms indicating supported decompressors
  6381.                                                             ; kQTVODecompressors sub-atoms
  6382. kQTVODecompressorType            EQU        'dety'                ; atom contains one OSType - decompressor type code
  6383. kQTVODecompressorContinuous        EQU        'cont'                ; atom contains one Boolean - true if this type is displayed continuously
  6384. kQTVODecompressorComponent        EQU        'cmpt'                ; atom contains one Component - component id of decompressor
  6385. ; * These are QTVideoOutput procedures *
  6386. ;
  6387. ; pascal ComponentResult QTVideoOutputGetDisplayModeList(QTVideoOutputComponent vo, QTAtomContainer *outputs)
  6388. ;
  6389.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6390.         Macro
  6391.         _QTVideoOutputGetDisplayModeList
  6392.             move.l              #$00040001,-(sp)
  6393.             moveq               #0,D0
  6394.             dc.w                $A82A
  6395.         EndM
  6396.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6397.         IMPORT_CFM_FUNCTION QTVideoOutputGetDisplayModeList
  6398.     ENDIF
  6399.  
  6400. ;
  6401. ; pascal ComponentResult QTVideoOutputGetCurrentClientName(QTVideoOutputComponent vo, Str255 str)
  6402. ;
  6403.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6404.         Macro
  6405.         _QTVideoOutputGetCurrentClientName
  6406.             move.l              #$00040002,-(sp)
  6407.             moveq               #0,D0
  6408.             dc.w                $A82A
  6409.         EndM
  6410.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6411.         IMPORT_CFM_FUNCTION QTVideoOutputGetCurrentClientName
  6412.     ENDIF
  6413.  
  6414. ;
  6415. ; pascal ComponentResult QTVideoOutputSetClientName(QTVideoOutputComponent vo, ConstStr255Param str)
  6416. ;
  6417.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6418.         Macro
  6419.         _QTVideoOutputSetClientName
  6420.             move.l              #$00040003,-(sp)
  6421.             moveq               #0,D0
  6422.             dc.w                $A82A
  6423.         EndM
  6424.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6425.         IMPORT_CFM_FUNCTION QTVideoOutputSetClientName
  6426.     ENDIF
  6427.  
  6428. ;
  6429. ; pascal ComponentResult QTVideoOutputGetClientName(QTVideoOutputComponent vo, Str255 str)
  6430. ;
  6431.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6432.         Macro
  6433.         _QTVideoOutputGetClientName
  6434.             move.l              #$00040004,-(sp)
  6435.             moveq               #0,D0
  6436.             dc.w                $A82A
  6437.         EndM
  6438.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6439.         IMPORT_CFM_FUNCTION QTVideoOutputGetClientName
  6440.     ENDIF
  6441.  
  6442. ;
  6443. ; pascal ComponentResult QTVideoOutputBegin(QTVideoOutputComponent vo)
  6444. ;
  6445.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6446.         Macro
  6447.         _QTVideoOutputBegin
  6448.             move.l              #$00000005,-(sp)
  6449.             moveq               #0,D0
  6450.             dc.w                $A82A
  6451.         EndM
  6452.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6453.         IMPORT_CFM_FUNCTION QTVideoOutputBegin
  6454.     ENDIF
  6455.  
  6456. ;
  6457. ; pascal ComponentResult QTVideoOutputEnd(QTVideoOutputComponent vo)
  6458. ;
  6459.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6460.         Macro
  6461.         _QTVideoOutputEnd
  6462.             move.l              #$00000006,-(sp)
  6463.             moveq               #0,D0
  6464.             dc.w                $A82A
  6465.         EndM
  6466.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6467.         IMPORT_CFM_FUNCTION QTVideoOutputEnd
  6468.     ENDIF
  6469.  
  6470. ;
  6471. ; pascal ComponentResult QTVideoOutputSetDisplayMode(QTVideoOutputComponent vo, long displayModeID)
  6472. ;
  6473.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6474.         Macro
  6475.         _QTVideoOutputSetDisplayMode
  6476.             move.l              #$00040007,-(sp)
  6477.             moveq               #0,D0
  6478.             dc.w                $A82A
  6479.         EndM
  6480.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6481.         IMPORT_CFM_FUNCTION QTVideoOutputSetDisplayMode
  6482.     ENDIF
  6483.  
  6484. ;
  6485. ; pascal ComponentResult QTVideoOutputGetDisplayMode(QTVideoOutputComponent vo, long *displayModeID)
  6486. ;
  6487.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6488.         Macro
  6489.         _QTVideoOutputGetDisplayMode
  6490.             move.l              #$00040008,-(sp)
  6491.             moveq               #0,D0
  6492.             dc.w                $A82A
  6493.         EndM
  6494.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6495.         IMPORT_CFM_FUNCTION QTVideoOutputGetDisplayMode
  6496.     ENDIF
  6497.  
  6498. ;
  6499. ; pascal ComponentResult QTVideoOutputCustomConfigureDisplay(QTVideoOutputComponent vo, ModalFilterUPP filter)
  6500. ;
  6501.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6502.         Macro
  6503.         _QTVideoOutputCustomConfigureDisplay
  6504.             move.l              #$00040009,-(sp)
  6505.             moveq               #0,D0
  6506.             dc.w                $A82A
  6507.         EndM
  6508.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6509.         IMPORT_CFM_FUNCTION QTVideoOutputCustomConfigureDisplay
  6510.     ENDIF
  6511.  
  6512. ;
  6513. ; pascal ComponentResult QTVideoOutputSaveState(QTVideoOutputComponent vo, QTAtomContainer *state)
  6514. ;
  6515.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6516.         Macro
  6517.         _QTVideoOutputSaveState
  6518.             move.l              #$0004000A,-(sp)
  6519.             moveq               #0,D0
  6520.             dc.w                $A82A
  6521.         EndM
  6522.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6523.         IMPORT_CFM_FUNCTION QTVideoOutputSaveState
  6524.     ENDIF
  6525.  
  6526. ;
  6527. ; pascal ComponentResult QTVideoOutputRestoreState(QTVideoOutputComponent vo, QTAtomContainer state)
  6528. ;
  6529.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6530.         Macro
  6531.         _QTVideoOutputRestoreState
  6532.             move.l              #$0004000B,-(sp)
  6533.             moveq               #0,D0
  6534.             dc.w                $A82A
  6535.         EndM
  6536.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6537.         IMPORT_CFM_FUNCTION QTVideoOutputRestoreState
  6538.     ENDIF
  6539.  
  6540. ;
  6541. ; pascal ComponentResult QTVideoOutputGetGWorld(QTVideoOutputComponent vo, GWorldPtr *gw)
  6542. ;
  6543.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6544.         Macro
  6545.         _QTVideoOutputGetGWorld
  6546.             move.l              #$0004000C,-(sp)
  6547.             moveq               #0,D0
  6548.             dc.w                $A82A
  6549.         EndM
  6550.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6551.         IMPORT_CFM_FUNCTION QTVideoOutputGetGWorld
  6552.     ENDIF
  6553.  
  6554. ;
  6555. ; pascal ComponentResult QTVideoOutputGetGWorldParameters(QTVideoOutputComponent vo, Ptr *baseAddr, long *rowBytes, CTabHandle *colorTable)
  6556. ;
  6557.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6558.         Macro
  6559.         _QTVideoOutputGetGWorldParameters
  6560.             move.l              #$000C000D,-(sp)
  6561.             moveq               #0,D0
  6562.             dc.w                $A82A
  6563.         EndM
  6564.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6565.         IMPORT_CFM_FUNCTION QTVideoOutputGetGWorldParameters
  6566.     ENDIF
  6567.  
  6568. ;
  6569. ; pascal ComponentResult QTVideoOutputGetIndSoundOutput(QTVideoOutputComponent vo, long index, Component *outputComponent)
  6570. ;
  6571.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6572.         Macro
  6573.         _QTVideoOutputGetIndSoundOutput
  6574.             move.l              #$0008000E,-(sp)
  6575.             moveq               #0,D0
  6576.             dc.w                $A82A
  6577.         EndM
  6578.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6579.         IMPORT_CFM_FUNCTION QTVideoOutputGetIndSoundOutput
  6580.     ENDIF
  6581.  
  6582. ;
  6583. ; pascal ComponentResult QTVideoOutputGetClock(QTVideoOutputComponent vo, ComponentInstance *clock)
  6584. ;
  6585.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6586.         Macro
  6587.         _QTVideoOutputGetClock
  6588.             move.l              #$0004000F,-(sp)
  6589.             moveq               #0,D0
  6590.             dc.w                $A82A
  6591.         EndM
  6592.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6593.         IMPORT_CFM_FUNCTION QTVideoOutputGetClock
  6594.     ENDIF
  6595.  
  6596. ;
  6597. ; pascal ComponentResult QTVideoOutputSetEchoPort(QTVideoOutputComponent vo, CGrafPtr echoPort)
  6598. ;
  6599.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  6600.         Macro
  6601.         _QTVideoOutputSetEchoPort
  6602.             move.l              #$00040010,-(sp)
  6603.             moveq               #0,D0
  6604.             dc.w                $A82A
  6605.         EndM
  6606.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  6607.         IMPORT_CFM_FUNCTION QTVideoOutputSetEchoPort
  6608.     ENDIF
  6609.  
  6610. ;  UPP call backs 
  6611.  
  6612.     ENDIF ; __QUICKTIMECOMPONENTS__ 
  6613.  
  6614.